Задать вопрос!

Задать вопрос!

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

3 года назад

9

Помогите 63 задание..

Помогите 63 задание..

Информатика

1 ответ:

Сергей1919 [4]3 года назад

0 0

1,3

......................

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

Написать программу pascal: найти сумму всех чисел с клавиатуры, кратных заданному числу a.

Alinka Rikkert [300]

Program gt;
var n,a,i,s,q:integer;
begin
read(n);
read(a);
s:=0;
for i:=1 to n do
begin
read(q);
if(q mod a=0)then s:=s+q;
end;
writeln(s);
end.

0 0

4 года назад

Напишите программу( Pascal abc) которая вычисляет частное от целочисленного деления двух заданных целых чисел и выводит на экран

кнопа

Var a,b:integer;beginreadln(a,b);writeln(a div b);end.

0 0

4 года назад

книга, набранная с помощью компьютера, имеет информационный объем 1 Мбит На каждой ее странице 32 строки по 64 символа. Чему рав

Lokesh

32 страницы при кодировке Unicode (стандартной)

0 0

4 года назад

Написать программу в которой определяется сумма s всех целых чисел в интервале, заданном переменными n и m, а так же сумма sa че

Aleksandr1971 [19]

Ответ:

var i,n,m,s,sa,sb: integer;

begin

write('n = ');

readln (n);

write('m = ');

readln (m);

for i:=n to m do

begin

s:=s+i;

if i mod 2 = 0 then sa:=sa+i else sb:=sb+i

end;

write('s = ',s,' sa = ',sa,' sb = ',sb)

end.

Объяснение:

Если интервал [n,m]

0 0

4 года назад

Помогите дорешать задачу по информатике Натуральные числа a, b, c, называются числами Пифагора, если выполняется условие a^2+b^2

Айкол

Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.

Пример:
20
<span>3 4 5
5 12 13
6 8 10
8 15 17
9 12 15</span>

0 0

4 года назад