1, 2 и 3 вопросы по информатике

Знания

Информатика

1 ответ:

Василий65464 года назад

0 0

2 вопрос - 3
1 вопрос - с
3 вопрос -а

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

Составить программу, которая находит сумму чисел на [5,36] и складывается с произведением первых 5 чисел.

Александр Трипуть

Var
n,i,sum,p: integer;
begin
sum:=0;
p:=1;
for i:=5 to 36 do sum:=sum+i;
for i:=5 to 9 do p:=p*i;
sum:=sum+p;
writeln ('otvet=',sum);
end.

0 0

4 года назад

В некотором каталоге хранится файл Оценки.doc. После того, как в этом каталоге создали подкаталог и перемест

MissEvgeniya [232]

Поскольку полное имя файла после создания подкаталога
С:\Школа\Классы\9Б\Оценки.doc, полное имя созданного подкаталога —
С:\Школа\Классы\9Б.

Правильный ответ указан под номером 2

0 0

4 года назад

Дано натуральное число N, написать программу, которая выводит на экран последовательность квадратов чисел от 1 до N.

Лора1972

Program Pr1;
uses crt;
var i,n,p:integer;
Begin
clrscr;
readln(n);
for i:=1 to n do writeln(sqr(i));
end.

0 0

4 года назад

Помогиииитееее!!!!на паскале1.Найти сумму первых 10 натуральных нечетных чисел.2.Найти произведение натуральных чисел прекратить

gorsvet109 [50]

Var
a,b,c,d:integer;
begin
c:=1;
b:=0;
while a<>1 do begin
readln(a);
if a mod 2 <> 0 then begin
b:=b+1;
if b<=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.

0 0

4 года назад

Program projectwork; begin var a, b, c:integer; begin read (a); read (b); read (c); d:=a+b+c/3; write ('d='); end; end. ожидался

Алена Кравцова

Program projectwork;
var a, b, c:integer;
d:real;
begin
read (a);
read (b);
read (c);
d:=a+b+c/3;
write ('d=',d);
end.
P.S.Если эта программа находит среднее арифметическое 3 введённых чисел,то d:=(a+b+c)/3;

0 0

4 года назад