//Формулировка хромает на обе ноги //Pascal ABC.NET v3.1 сборка 1172
Type re=record date:string; year:string; sch:string; end;
Var s:re; begin write('Введите дату рождения:');readln(s.date); write('Введите год:');readln(s.year); write('Введите номер школы:');readln(s.sch); write(s.date,' ',s.year,' ',s.sch); end.
Пример ввода:
Введите дату рождения:01.02 Введите год:1998 Введите номер школы:56
200000, насколько я понял.Если вы дочитаете это - респект.%)
При первом запуске условие не выполниться, поэтому переменная ans останется прежней( в таком случае нам безразлично значение единиц числа n, и мы ставим наименьшее - 0), в этом же цикле от числа n убираются единицы и к переменная i увеличивается на 1. Цикл начинается по новой, теперь условие выполняется( i делится на 2 с остатком 1), но также на два должны без остатка делится и десятки числа n(опять берем наименьшее число 0) переменная ans увеличивается на 1. В следующем цикле условие опять не выполняется, i увеличивается на 1, от n убираются сотни(сотни числа n равны 0) В четвертом цикле asn и i увеличиваются на 1, тысячи числа n опять же равны 0. В 5-ом цикле условие не выполняется, i увеличивается на 1, десятки тысяч числа n равны 0. И наконец в шестом цикле переменная asn увеличится на 1, но при том условии,что сотни тысяч числа n делятся на 2 без остатка - ноль здесь уже не подходит, поскольку число не может начинаться с нуля. Берем 2.
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018 Внимание! Если программа не работает, обновите версию!
begin var s1:=ReadlnString('Строка-1:'); var s2:=ReadlnString('Строка-2:'); Writeln($'Длина 1-й строки {s1.Length}, второй строки {s2.Length}'); s1:=s1.Replace('а','о'); Writeln('Строка-1: ',s1); s2:=s2.Replace('К','л'); Writeln('Строка-2: ',s2) end.
Пример Строка-1: А роза упала на лапу Азора Строка-2: Карл у Клары украл кораллы Длина 1-й строки 26, второй строки 26 Строка-1: А розо уполо но лопу Азоро Строка-2: ларл у ллары украл кораллы
//Pascal ABC.NET v3.1 сборка 1172
Type
re=record
date:string;
year:string;
sch:string;
end;
Var
s:re;
begin
write('Введите дату рождения:');readln(s.date);
write('Введите год:');readln(s.year);
write('Введите номер школы:');readln(s.sch);
write(s.date,' ',s.year,' ',s.sch);
end.
Пример ввода:
Введите дату рождения:01.02
Введите год:1998
Введите номер школы:56
Пример вывода:
01.02 1998 56