Предмет: Информатика,
автор: Storm34rus
Помогите написать простую программу к этому заднию, срочно, пожалуйста
Приложения:
Ответы
Автор ответа:
0
var x:real;
begin
x:=-1;
while x<=5 do
begin
if x<1 write(sin(x):3:3,' ');
if x=1 write (1,' ');
if x>1 write ('a', cos(pi*x):3:3,' ');
x:=x+0.5;
end;
end.
begin
x:=-1;
while x<=5 do
begin
if x<1 write(sin(x):3:3,' ');
if x=1 write (1,' ');
if x>1 write ('a', cos(pi*x):3:3,' ');
x:=x+0.5;
end;
end.
Интересные вопросы
Предмет: Физика,
автор: Аноним
Предмет: История,
автор: danilabondarik25
Предмет: Математика,
автор: helenheffner33
Предмет: Математика,
автор: Rgfg