1
Вычисли значение y:
var i,n, y:integer;
begin
y:=1;
for i:=1 to 6 do
y:=y+2;
writeln ('y=', y)
end.
2
Вычисли значение y:
var n, y:integer;
begin
y:=10;
n:=2;
while n< 5 do
begin
y:=y+3;
n:=n+1;
end;
writeln (y)
end.
3
Вычисли значение y:
var n, y:integer;
begin
y:=0;
n:=2;
repeat
y:=y+2;
n:=n+1;
until n<8
writeln (y)
end.
2) Вопрос не понял, но думаю правильно ответил:
var a,b,c,d :int64;
begin
readln(a);
b := a -1;//число до
c := a +1;//число след.
writeln('Число до: ',b,' Число след.: ',c);
end.
3)
var a,b,c,d :int64;
begin
readln(a);//Кол-во учеников
readln(b);//Кол-во яблок
c := b div a;//Яблок каждому ученику
d := b - (a * c);//Яблок в корзине
writeln('Яблок каждому: ',c,' Яблок осталось в корзине: ',d);
end.
4)
var a,b,c,d:int64;
begin
readln(a);//Число
b := a mod 10;//остаток от деления
c := a div 10;//деление без остатка
d := c mod 10;//остаток от деления
writeln('При последнее число: ',d,' Последнее число: ',b);
end.
5)
var a,b,c,d:int64;
begin
readln(a);//Автобус за день
readln(b);//Кол-во дней
c := a * b;
writeln('Автобус проехал: ',c,' (км)');
end.
6)
var a,b,c,d:int64;
begin
readln(a);//Путь муравья
b:= a div 1000;//м
c:= (a - (b*1000)) div 10;
//см
d:= a - (b*1000+c*10);
//мм
writeln('Путь муравья: ',b, ' (м) ',c,' (см) ',d,' (мм)');
end.
7)
var a,b,c,d:int64;
begin
readln(a);//Грань куба
b := a*a*a ;
writeln('Объем куба: ',b, ' м^3');
end.
8)
var a,b,c,d,g:real;
begin
readln(a,c,d,b);//Числа
g:=(a+c+d+b) / 4 ;
writeln('Cреднее арифметическое: ', g);
end.
9)
var a,b,c,d:real;
begin
readln(a,b,c);//Учеников в кадом классе
d:= (a+b+c)/ 2;
writeln('Кол-во парт для 3 классов: ', d);
end.
Объяснение:Все программы написаны на Pascal.
Капец много задач за 5б)))
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',n,'] ***');
var c:=MatrRandom(n,n,-99,99);
c.Println(4); Writeln(4*c.ColCount*'-');
var t:=new real[2*n];
var j:=0;
for var i:=0 to n-1 do begin
t[j]:=c[i,i];
t[j+n]:=c[i,n-i-1];
j+=1
end;
t.Println
end.
Пример
Количество строк/столбцов в матрице: 7
*** Исходная матрица [7,7] ***
-61 73 25 31 91 -61 -13
-9 -51 -98 57 -46 -16 -39
-14 68 -77 16 74 17 86
9 -29 -2 -17 -30 23 84
71 15 22 -58 -46 42 -96
-29 -38 30 -51 70 -67 -15
8 -96 -22 85 41 -71 -57
-61 -51 -77 -17 -46 -67 -57 -13 -16 74 -17 22 -38 8