Все категории

3 года назад

Помогите с задачей Вывести таблицу квадратов чисел от 0 до 2 с шагом 0,2. (Pascal)

Знания

Информатика

1 ответ:

18012019 [7]3 года назад

0 0

var i:real;

begin

i:=0;

while i<=2 do

begin

writeln(i:4,'*',i,'=',i*i);

i:=i+0.2;

end;

end.

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

Помогите пжлста. Сгенерируйте серию из 10 случайных чисел от 1 до 3 и найдите: а) на сколько количество двоек больше/меньше коли

Wortox Williams

Написал в паскале,
что-то не понятно - пиши.

Внизу показывается пример работы.

0 0

4 года назад

Напишите программу, которая в последовательности целых чисел определяет количество чисел кратных 5 или 7.

sergions

Ответ:

Объяснение:

a = int(input())

k = 0

while a != 0:

if a % 7 == 0 or a % 5 == 0:

k+=1

a = int(input())

print(k)

0 0

4 года назад

Что за герои, на картинке???

Алексей Графинин

Ранго и Плуто,но это как-то к информатике отношения не имеет.

0 0

3 года назад

Напишите программу(Pascal) Найдите сумму всех вводимых с клавиатуры чисел, кратных заданному числу а.

AlekSanches [18.2K]

Program n1;
var sum,a,c: integer;
begin
readln(a);
sum:=0;
while true do
begin
readln(c);
if c=0 then break;
if c mod a=0 then sum:=sum+c;
end;
writeln(sum);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Python помогите 1. Дракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет - только по две. Скольк

DenisAll

1.
n = int(input("N="))
heads = n * 3 if n <= 100 else 100 * 3 + (n - 100) * 2
eyes = heads * 2
print(heads)
print(eyes)
2. Используется прямая формула для н-ого члена
for x in range(1, 9):
print(int((1/(5**0.5))*((((1+5**0.5)/2)**x)-(((1-5**0.5)/2)**x))))
3.
try:
num = int(input("N="))
except ValueError:
print('Not a number')
if num > 2000000:
print('too big')
else:
print(len(str(num)))
5.
a = abs(int(input('a=')))
b = abs(int(input('b=')))
while a!=0 and b!=0:
if a > b:
a %= b
else:
b %= a
print(a + b)

0 0

4 года назад