WN . Выберите правильный ответ. Если переменная а равна 10, какой результат выдаст программа? 1 использовать Чертежник 2 ал 3 Нач 4. • веща 5 • ввод а 6 . если a>10 то 7 • сместиться в точку(3,3) 8 • опустить перо 9 . . . выбрать чернила (красный) 10 . сместиться на вектор (2,2) 11 . . сместиться на вектор(2,-2) 12 . сместиться на вектор(-4,0) 13 . иначе 14 . сместиться в точку (3,3) 15 • опустить перо 16 . выбрать чернила(синий) 17 сместиться на вектор(2,0) 18 сместиться на вектор(0,2) 19 сместиться на вектор(-2,0) 20 сместиться на вектор(е, -2) 21 22 кон 23 . Bce Изображение создано при ГРИС Кумир
нарисует красный треугольник нарисует синий квадрат Онарисует синий параллелограмм О нарисует красный прямоугольник
Var k, s, i: integer;beginreadln(k);s:=k mod 10;i:=0;while k<>0 do begin k:=k div 10; if s<k mod 10 then begins:=k mod 10;i:=0;end;if s=k mod 10 theni:=i+1;end;writeln(i);end. В переменной k вводим число, в переменной s храним максимальную цифру, в переменной i подсчитываем вхождение максимальной цифры в число
var k, s, i: integer;beginreadln(k);//вводим числоs:=k mod 10;//предполагаем что последняя цифра - максимальнаяi:=0;// инициализируем счетчик нулемwhile k<>0 do begin//цикл идет до тех пор пока не закончатся цифры в k k:=k div 10;// отбрасываем цифру от числа if s<k mod 10 then //если s < последней цифры kbegins:=k mod 10;//то меняем нашу максимальную цифру на новуюi:=0;// и сбрасываем счетчикend;if s=k mod 10 then// если цифра в числе равна максимальной цифреi:=i+1;//прибавляем 1 к счетчикend;writeln(i);//выводим количество вхождений максимальной цифры end.
В данном тексте встречается не так много различных прописных букв – это все буквы, входящие в заголовок (Ш, А, Л, Т, Й, Б, О) и первые буквы строк (С, В, Н). Какая из них может встречаться один раз. Не трудно заметить, что это не Ш и не Б (они встречаются слишком часто), а также не С, не В и не Н (они встречаются в стихотворении попарно), значит, это какая-то из оставшихся букв заголовка и не трудно догадаться, что О. Три раз встречается строчная буква и. Три раза встречается прописная буква А. Десять раз встречается строчная буква е.
k:=k div 10;
if s<k mod 10 then begins:=k mod 10;i:=0;end;if s=k mod 10 theni:=i+1;end;writeln(i);end.
В переменной k вводим число, в переменной s храним максимальную цифру, в переменной i подсчитываем вхождение максимальной цифры в число
var k, s, i: integer;beginreadln(k);//вводим числоs:=k mod 10;//предполагаем что последняя цифра - максимальнаяi:=0;// инициализируем счетчик нулемwhile k<>0 do begin//цикл идет до тех пор пока не закончатся цифры в k
k:=k div 10;// отбрасываем цифру от числа
if s<k mod 10 then //если s < последней цифры kbegins:=k mod 10;//то меняем нашу максимальную цифру на новуюi:=0;// и сбрасываем счетчикend;if s=k mod 10 then// если цифра в числе равна максимальной цифреi:=i+1;//прибавляем 1 к счетчикend;writeln(i);//выводим количество вхождений максимальной цифры end.
Три раз встречается строчная буква и. Три раза встречается прописная буква А. Десять раз встречается строчная буква е.