Информатика Получив на вход число x, приведенная ниже программа выводит два числа - m и n. var x, m, n: integer;
begin
readln(x);
m:=0; n:=0;
while x>0 do
begin
if n m:=m+1;
x:=x div 10;
end;
writeln(m); write(n)
end.
Известно, что при некотором значении x были выведены числа 4 и 8. Укажите наибольшее и наименьшее из таких чисел x. Сколько всего существует таких x?
1.
program z1;
var a:integer;
begin
write ('Введите четырехзначное число ');
readln (a);
writeln ('Сумма 1 и 3 цифр равна ', a div 1000 + a mod 100 div 10);
writeln ('Произведение крайних цифр равно ', a div 1000 * (a mod 100 mod 10));
end.
2.
program z2;
var x,k:integer;
begin
write ('Введите сколько мороженого купили Петров и Васечкин ');
readln (x);
write ('Введите сколько процентов мороженого съел Васечкин ');
readln (k);
writeln ('Васечкин съел ', x*k/100,' мороженого');
writeln ('Петров съел ', x*k/100/2,' мороженого');
writeln ('Учительница забрала ', x-x*k/100-x*k/100/2,' мороженого')
end.
[1]
1) begin. - точка ставится только в конце программы совместно с оператором end
2) write('Введите х: ); - строковый текст обязательно начинается с ' и обязательно заканчивается ', - в данном случае нет ' в конце
3) readln(x) - символ ; обязателен в конце оператора
4) if x div 2 = 0 then - div целочисленное деление. Для проверки на четность необходимо использовать mod - т.е. остаток от деления
5) writeln(Это четное число') - ошибка с '
6) else writeln('Это нечетное число); - ошибка с '
[2]
1) var x: integer - не указана ; в конце оператора
2) if (x≥10) and (x <= 100) then - нет такого условного оператора ≥, есть >=
3) if (x≥10) and (x <= 100) then - чтобы число проверку на двузначность, условие (x <= 100) должно быть строгим, т.е. (x < 100) или (x <= 99)
4) else writeln('Не двузначное число') - не указана ; в конце оператора
5) end - необходима точка в конце программы
[3]
2, 4, 7, 10, 11
[4]
var x: integer;
begin
ReadLn(x);
if x mod 5 = 0 then WriteLn('Число ', x, ' является кратным 5')
else WriteLn('Число ', x, ' не является кратным 5')
end.
[5]
var x: integer;
begin
ReadLn(x);
case x of
1: WriteLn('В понедельник 5 уроков');
2: WriteLn('Во вторник 6 уроков');
3: WriteLn('В среду 7 уроков');
4: WriteLn('В четверг 6 уроков');
5: WriteLn('В пятницу 5 уроков');
else WriteLn('В данный день нет уроков');
end;
end.