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. не уверена,но по-моему так
Ответ дал: Гость
где-то в начале ii тысячелетия до нашей эры предки финикийцев изобрели алфавит.
само слово "алфавит" восходит к названиям первых финикийских букв: альфа "алеф" (бык) и бета "бет" (дом). финикийцы дали название каждой букве своего алфавита.
Ответ дал: Гость
прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.
на tpascal:
var i: integer;
begin
for i: =10 to 99 do begin
if i mod 3 = 2 then
writeln (i,' ',-i,' ');
i: =i+1;
end;
readln
end.
Ответ дал: Гость
это идут дедешка папа и сын.дедушка папа своиму сынку а его сын папа своему сыну папа сын своего дедушки сын сын своему папе!
Популярные вопросы