Запишите значение переменной s, полученное в результате работы следующей программы
5-9 класс
|
1. S=0 For k in range (6,12) S=s+10 Print (s) 2. S=0 For k in range (1,10) S=s+k ** 2 Print(s)
Другие вопросы из категории
Ввести два числа. если их произведение больше 100, то вывести их сумму минус 52, если нет - модуль разности.
ввести два числа. Если их произведение больше 100, то вывести их сумму минус 52, если нет - модуль разности
Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечётных чисел, кратных 3.
Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывает разность количества положительных и отрицательных чисел последовательности. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел
Составьте алгоритм рисования первой буквы моего имени буквы "З" ! Прошу вас! Pleaseeeee
Читайте также
writeln(s); End.
Алгоритмический язык
Бейсик
Паскаль
алг
нач
цел 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.