Помогите Составить программу нахождения суммы всех двухзначных чисел которые делятся на 5

Знания

Информатика

1 ответ:

gecha [38]4 года назад

0 0

Вроде бы вот так
program nomer;
var x,s,i:integer;
begin
for x:=10 to 99 do
begin
if (x mod 5)=0 then s:=s+x;
end;
writeln(s);
end.

Читайте также

Составить программу вывода всех чисел от A до B

Сержик

<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
Range(ReadInteger('a='),ReadInteger('b=')).Println
end.
</span>

0 0

4 года назад

Дано целое число X и натуральное N. Составьте алгоритм вычисления XN. Проверьте алгоритм трассировкой. Напишите программу на Пас

Denis Makaev [7]

Var
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.

0 0

4 года назад

1.Дано целое число. Составить программу, определяющую, какое число было введено: положительное, отрицательное или ноль 2. Вводят

Toshik190

#include <iostream>
#include <conio.h>
void main() {
int digit;
std::cin >> digit;
if(digit>0) {
std::cout << "+" << std::endl;
} else if (digit<0) {
std::cout << "-" << std::endl;
} else {
std::cout << "0" << std::endl;
}

int digit1, digit2;
std::cin >> digit1;
std::cin >> digit2;
if(digit1>digit2 && digit1 !=0 && digit2 !=0) {
std::cout << digit1 << " > " digit2 << std::cout;
} else {
std::cout << digit1 << " < " digit2 << std::cout;
}
_getch();
return 0;

}

0 0

4 года назад

2. Клетки грибов делятся на четыре части каждые пять минут. Определите, какое количество клеток будет через N минут. Напишите ци

Андрей2290

####################

0 0

4 года назад

27 задание на егэ по информатике( № 7772 на решу егэ). Вот задание: Для заданной последовательности неотрицательных

Экуся [26]

m = 0; p = 1; n = int(input())

a = [int(input()) for i in range(8)]

for i in range(n-8):

a.append(int(input()))

m = max(m, a[0]); p = max(p, m*a[8])

a = a[1:]

print(p)

0 0

4 года назад