Текст программы на языке Pascal:

program p1;
var a: array [1..40] of integer;
var i,c:integer;
begin
c:=0;
for i:=1 to 40 do
begin
a[i]:=random(20);
write (a[i],' ');
if (a[i] mod 3) = 0
then c:=c+a[i];
end;
writeln;
writeln (c);
end.

0 0

3 года назад

Написать программу на Паскале1. Найти объем параллелепипеда (стороны ввести с клавиатуры) 2. Высота треугольника равно 7 см, а о

julindabagro [384]

№1

var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
end.

№2

const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
end.

№3

var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
end.

0 0

4 года назад

Дан массив, состоящий из 7 вещественных чисел. Из всех положительных элементов массива вычесть элемент с номером k, из всех отри

Юля147 [6]

Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');

0 0

4 года назад

Напечатать программу в python все двузначные числа, квадраты которых делятся на 13

Vikos666

For i in range(1, 100):
if i*i % 13 == 0:
print i

0 0

1 год назад