Вывести на экран все целые числа от 100 до 200, кратные трём. Python.

Знания

Информатика

1 ответ:

Nezha4 года назад

0 0

Ответ:

m=100

while m <= 200:

if m % 3 == 0:

print(m)

m+=1

Объяснение:

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

Существенные и несущественные свойства дерево,машина,кошка,яблоко

Анхел

Сущ.-кошка
несущ.-дерево,машина, яблоко

0 0

3 года назад

ПОМОГИТЕ !!! Написать программу нахождения периметра и площади прямоугольника . Стороны прямоугольника вводятся с клавиатуры . (

Gamemode1337 [107]

var

a, b: integer;

begin

write('введите две стороны = >');

readln(a, b);

writeln('периметр = ', 2 * (a + b));

writeln('площадь = ', a * b);

end.

0 0

4 года назад

Пожалуйста помогите!!!!!!Определить значение переменной Z, которое будет получено в результате выполнения фрагментами программы,

Julia Berlin [71]

Несмотря на ошибки всё равно помогу.

Z=3.

0 0

1 год назад

СОСТАВТЕ ПРОГРАММУ ВВОДА МАССИВА ЦЕЛЫХ ЧИСЕЛ а[1..10] И ВЫВОДА НА ЭКРАН ЭЛЕМЕНТОВ МАССИВА С НЕЧЕТНЫМИ ЗНАЧЕНИЯМИ

Янкевич Андрей Ни...

Pascal:
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
for i:=1 to 10 do
if a[i] mod 2 = 1 then write (a[i],' ');
end.

C++:
#include <iostream>
using namespace std;

int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <>a[i];
}
for (int i = 0; i<10; i++)
if (a[i]%2==1)
cout <<a[i] <<" ";
return 0;
}

0 0

4 года назад

Помогите ! PascalABC пишет ошибку N:a/b;

enri43

Program summa;
var a,b,s,y,d:integer;
n: real;
begin
writeln('Введите любых числа');
readln(a,b);
S:=a+b;
Y:=a-b;
N:=a/b;
D:=a*b;
writeln('сумма=',S);
writeln('разность=',y);
writeln('деление=',N);
writeln('произведение=',D);
end.

0 0

3 года назад