Pascal
var n,a:integer;
s,x,si:real;
begin
readln(x,n);
si:=sin(x);
for a:=1 to n do
begin;
s:=s+si;
si:=sin(si);
end;
writeln(s);
end.
Program pr1;
var
x:byte; // Число
y:real; // Функци
Begin
x:=17;
writeln('y= ',SQRT(x+8));
End.
Дальше просто замени другими значениями x
Var k,a,b,c:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
writeln('введите третье число');
readln(c);
writeln('введите число k');
readln(k);
if a mod k = 0 then
writeln('Первое число кратно k')
else
writeln('Первое число не кратно k');
if b mod k = 0 then
writeln('Второе число кратно k')
else
writeln('Второе число не кратно k');
if c mod k = 0 then
writeln('Третье число кратно K')
else
writeln('Третье число кратно k');
<span>end.
Это первая задача!</span>
Мальчик, увидев на светофоре знак того, что можно перейти дорогу, смело пошел по зебре, расположенной на дороге, а водитель, увидев , что ехать нельзя, остановился и ждет, пока пешеходы перейдут дорогу.
Высказывание - предложение, которое может быть истинным или ложным.
<span>а) Все натуральные числа целые. - истинное высказывание
</span><span>б) Существуют ли белые слоны? - вопросительное предложение не является высказыванием.</span>