Написать программу pascal, которая меняет местами последние две цифры в записи числа. рассматриваются числа в диапазоне от m до n, причем m> 99. вывести на экран два столбика значений: первый – исходное число, второй – измененное.
Uses crt; var i,n,m: integer; begin write('Введите число, большее 99: '); readln(n); clrscr; for i:=100 to n do writeln(i,' ',i div 100,i mod 10,i mod 100 div 10); end.
Var err, right, answer : integer; BEGIN err := 0; right := 0; writeLn('Сейчас Вам будет предложен тест по сериалу "Кухня". '); writeLn('К каждому вопросу два варианта ответа. '); writeLn('Вы должны ввести номер правильного ответа и нажать <Еnter>'); writeLn; writeLn('Понравилась последняя серия Кухни?: '); writeLn('1. Да'); writeLn('2. Очеень понравилась'); Write('Ваш ответ: ');ReadLn(answer); if answer = 1 then begin WriteLn('Неправильно'); err := err + 1; end else begin WriteLn('Правильно'); right:=right+1; end; writeLn; writeLn('Жена Макса: '); writeLn('1. Вика'); writeLn('2. Катя'); Write('Ваш ответ: ');ReadLn(answer); if answer = 1 then begin WriteLn('Правильно'); right := right +1; end else begin WriteLn('Неправильно'); err := err + 1; end; writeLn; writeLn('Любишь этот сериал?: '); writeLn('1. Обожаю'); writeLn('2. Очееень :3'); Write('Ваш ответ: ');ReadLn(answer); if answer = 2 then begin WriteLn('Правильно'); right := right +1; end else begin WriteLn('Неправильно'); err := err + 1; end; WriteLn('Правильных ответов: ', right); WriteLn('Неправильных ответов: ', err); END. Я сделяль :3
var i,n,m: integer;
begin
write('Введите число, большее 99: ');
readln(n);
clrscr;
for i:=100 to n do
writeln(i,' ',i div 100,i mod 10,i mod 100 div 10);
end.