Задания 19 и 20 должны выполняться с помощью компьютера.
Pascal:
program decrement;
var
i: integer;
begin
i := 50;
while i >= 1 do
begin
if i mod 2 = 1 then
writeln(i, ' ');
i := i - 1;
end;
end.
---
C++:
#include <iostream>
int main() {
int i = 50;
while (i >= 1) {
if (i % 2 == 1)
std::cout << i << ' ';
i--;
}
return 0;
}
Uses Crt;
var
a,b,c,x:double;
begin
ClrScr;
Write('Введите через пробел a и c:'); Read(a,c);
b:=a+c*c;
x:=Cos(b)/Sqrt(b+5);
Writeln('x=',x);
ReadKey
end.
Program qq;;
var S:array[1..8] of integer;
i, SA, sum, k:integer;
begin
for i:=1 to N do readln(S[i]);
sum=0; k:=0; SA:=0;
for i:=0 to 8 do begin
sum:=sum+A[i];
k:=k+1;
end;
SA:=s/k;
if (S[i]>SA) then writeln(S[i]);
<span>end.</span>