• Страница 1 из 1
  • 1
Форум » 11 КЛАСС » Информатика » номер 5
номер 5
Marina_OstriogloДата: Понедельник, 25.04.2016, 22:39 | Сообщение # 1
Генерал-лейтенант
Группа: Админ
Сообщений: 583
Статус: Offline
programp5;
Procedurep;
begin
writeln (‘*, *,*’);
writeln(‘*,_*);
writeln(‘*,*,*’);
end;
begin
p;
writeln;
p;
writeln;
p;
end.

programp5;
var i:integer;
procedure pr;
begin
for i:=1 to 135 do write (‘*’);
end;
begin
pr;
writeln;
pr;
writeln;
pr;
end
 
Форум » 11 КЛАСС » Информатика » номер 5
  • Страница 1 из 1
  • 1
Поиск: