Запишите значение переменной s, полученное в результате работы следующей программы

ввести два числа. Если их произведение больше 100, то вывести их сумму минус 52, если нет - модуль разности

Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечётных чисел, кратных 3.

Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывает разность количества положительных и отрицательных чисел последовательности. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел

Составьте алгоритм рисования первой буквы моего имени буквы "З" ! Прошу вас! Pleaseeeee

Алгоритмический язык
Бейсик
Паскаль
алг

нач

цел s, k

s := 0

нц для k от 7 до 11

s := s+11

кц

вывод s

кон


DIM k, s AS INTEGER

s = 0

FOR k = 7 TO 11

s = s+11

NEXT k

PRINT s
Var s,k: integer;

Begin

s := 0;

for k := 7 to 11 do

s := s+11;

writeln(s);

End.

DIM k, s AS INTEGER
s = 0
FOR k = 6 TO 12
s = s + 5
NEXT k
PRINT s

Var s,k: integer;

Begin
s:=0;

for k:=4 to 10 do

s:=s+11;

write(s);

End.

for k := 7 to 11 do s := s+11;

writeln(s);

End.