Помогите решить контрольную работу по информатике по теме "циклы"! (сколько сможите) 1. Найти значение функции y=3x+12 на отрезке от 0,2 до 0,6 с шагом

+ 0 -

настюха8

24 янв. 2017 г., 19:06:28 (7 лет назад)

var x:real; i:integer;

begin

for i:=2 to 6 do begin

x:=i/10;

write(3*x+12,' ');

end;

end.

var i,s:integer;
begin
readln(i);
while i<=180 do begin if i>100 then inc(s); i:=i+20; end;
writeln(s);
end.

const N='tragikomediya';
var i:integer;
begin
for i:=6 to 13 do
write(N[i]);
writeln;
for i:=1 to 4 do
write(N[i]);
for i:=9 to 13 do
write(N[i]);
writeln;
write(N[6]);
for i:=3 downto 1 do
write(N[i]);
write(N[3]);
writeln;
end.