Напишите блок - схему к : найти сумму всех n-значных чисел, кратных k

293

339

Посмотреть ответы 1

Ответы на вопрос:

mihajlova2011

Информатика

4,4(50 оценок)

1. var i,c: integer; x,y: string; begin readln(x); readln(y); for i: =1 to length(x) do if x[i]< > y[i] then inc(c); writeln('букв надо исправить = ',c) end. 2. var i: integer; x: string; begin readln(x); i: = 1; while x[i]< > 'a' do inc(i); // здесь, в зависимости с какой буквой сравнивать, либо с , либо с . writeln(i)end.