12 var 3 s : string; 4 begin 5 readln (s ); 6 while pos ( 'с' ,s )> 0 do delete (s ,pos ( 'с' ,s ) ,1 ); 7 writeln (s ); 8 end. не уверена,но по-моему так
Ответ дал: Гость
отношения между объектами - диаграммы эйлера-венна
объект-фотографии
стоимость объекта -числа
р. об.- эскиз
ф. р. об. - чертежа
эл. с. об. -схемы
цв. об.-рисунка
Ответ дал: Гость
var x,i,x1,x2,x3: integer
s: string;
begin
read(x);
s: =str(x);
x1: =int(s[1]);
x2: =int(s[2]);
x3: =int(s[3]);
if (x1+x3)mod x2=0 then writeln("да")
else writeln("нет");
end.
Ответ дал: Гость
остатки от деления 72*n на 105 где n начинается с 2
var i, j: integer;
begin for i : = 2 to 100 do writeln(i*72 mod 105); end.
Популярные вопросы