Ответ:
Удаление всей информации с диска
Алг Спортсмен
нач
вещ s, s7
s := 10
s7 := s
нц 6 раз
s := s*1.1
s7 := s7+s
кц
вывод "s7 = ",s7
кон
Программа:
var i: Integer;
a: real;
begin
for i:=1 to 12 do a:=a+sqrt(i);
writeln(a);
end.
если всё прибавить надо то 9+8+7+10+6+8+6=54
Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..