Информатика и информация повязана тем , что информатика с помощью интернета дает там полезную опять же информацию , с помощью информатики пишут програмы которые помогают искать нам информацию
//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c=180 then writeln('Possible') else writeln('Unpossible');
end.
Пример ввода:
100
40
40
Пример вывода:
Possible
A = list(map(int, input().split()))
print(sum(a))
1) подойти к переходу.
2) дождаться пока загариться зелёный сигнал светофора.
3) посмотреть по сторонам.
4) убедиться, что машины стоят.
5) переходить дорогу
var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.