Program odinakov; var i, it, il: integer; t: boolean; begin for i: =1 to 255 do begin t: =true; it: =i; il: =i mod 10; while it < > 0 do begin if it mod 10 < > il then begin t: =false; break; end; it: =it div 10; end; if t then writeln(i); end; end.
Диана820
25.09.2021
Было занятно сделать все это в виде одного // pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin readlnstring('-> ').towords(arr(',','.')) .select(w-> w.where(c-> pos(c,'аеёиоуыэюя')> 0).groupby(x-> x) .select(x-> (x.key,x.(x-> x[1]> (x-> x.count> 0) .selectmany(x-> x).select(x-> x.item1).distinct.orderby(x-> x) .println(',') end. пример -> дает,корова,молоко,,животное,жираф,катамаран. а,е,о
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу вычисляющую площадь квадрата. стороны пользователь вводит с клавиатуры
var
a: integer;
s: longint;
begin
repeat
write ('a = ' ); readln(a);
until (a> 0);
s: =sqr(a);
writeln (s);
readln;
end.