ОТ СУМАТИВНАЯ РАБОТА 3 ЧЕТВЕРТЬ 1. Найти его периметр или площадь треугольника. Составить программу - id1121055620220717 от Амбрела123 17.07.2022 05:05

Question

Информатика: ОТ СУМАТИВНАЯ РАБОТА 3 ЧЕТВЕРТЬ 1. Найти его периметр или площадь треугольника. Составить программу (2) 2. Даны 5 целых чисел. Вывести на экран четные. Составить программу. . (3) 3. ответьте на во теста А. Что означает логический оператор % (1) -Общий процент -Вычитание, остаток от деления -Процент от выражения Б. Какая команда запрашивает ввод данных у пользователя (1) -For -Print -Input В. Что означает логический оператор = (1) Открытый во Г. Оператор вывода данных на экран (1) Открытый во Чего

Амбрела123 · Accepted Answer

DIM A(6)
RANDOMIZE TIMER
FOR I = 1 TO 6
A(I) = INT(RND * 20) - 10
IF A(I) > 0 THEN S = S + 1
PRINT A(I); " ";
NEXT I
PRINT
PRINT "S="; S

Новый паскаль АВС
var
a:array[1..6]of integer;
i,s:integer;
begin
for i:=1 to 6 do
begin
a[i]:=random(-10,10);
if a[i]>0 then s:=s+1;
write(a[i],' ')
end;
writeln;
writeln('Количество положительных: ',s)
end.

Старый паскаль АВС
var
a:array[1..6]of integer;
i,s:integer;
begin
for i:=1 to 6 do
begin
a[i]:=random(20)-10;
if a[i]>0 then s:=s+1;
write(a[i],' ')
end;
writeln;
writeln('Количество положительных: ',s)
end.

MOGZ ответил