№12
а)
program 1;
var i,n,sum:integer;
Begin
writeln("Enter n");
readln(n)
sum:=0;
for i:=1 to n do
sum:=sum+1;
writeln("result=",sum);
readln;
End.

г)
var a,b:integer;
begin
a:=0;
for b:=10 to 99 do
a:=a+b;
writeln (a);
end.

№13

const

n = 10;

var

a, summ, i:integer;

begin

randomize;

summ := 0;

for i := 1 to n do

begin

a := random(20) + 1;

summ := summ + a;

write(a, ' ');

end;

writeln;

writeln('Среднее арифметическое этих чисел ',summ / n);

end.

0 0

4 года назад

РЕШИТЕ задачу построив табличную модель. Трое подростков Саша, Миша и Андрей живут на одной улице. Одного все знают , как отличн

ЕвгенияС

Шахматиста знают и футболист, и тусовщик. Андрей не знает Мишу, значит, Миша - не шахматист [1]. Тусовщика тоже все знают, поэтому Миша - не тусовщик. Значит, Миша - футболист [3]. Шахматист и Миша знакомы, значит, Андрей - не шахматист [4]. Поэтому Шахматист - Саша, а Андрей - тусовщик [5].

Таблица приведена во вложении.

0 0

4 года назад

В заданной строке удалить второй и четвертый по счету символ. паскаль

alusya [14]

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString('Вводите:');
Delete(s,4,1); Delete(s,2,1);
Writeln(s)
end.

Пример
Вводите: Удаление пары символов
Уаение пары символов

0 0

4 года назад

За четверть ученик получил 120 оценок. Сообщение о том, что он получил пятерку, несет 2 бита информации. Сколько пятерок ученик

олег яковлевич

60 пятерок
120:2, вроде так

0 0

4 года назад