Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s: string[3];
begin
readln(s);
if (s[1]=s[2]) or (s[3]=s[1]) or (s[3]=s[2]) then
writeln('есть') else
writeln('нет');
end;
пишу на паскале
program tralala;
var a,b,c,n: integer;
readln(n);
a: =n div 100;
b: =n div 10 mod 10;
c: =n mod 10;
if (a=b) or (a=c) or (b=c) then writeln (есть');
else write('нету');
end.
64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт
а) наименование товаров, цена за единицу товара, количество каждого товара
б) общая сумма покупки, сумма денег переданная продавцу
в) программа телепередач, название фильма
г) набор значений углов и сторон треугольника, должна быть известна хотя бы одна сторона треугольника и еще две величины(углы или стороны)
Популярные вопросы