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

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

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

4 года назад

7

ПОМОГИТЕ!!! ПАСКАЛЬ!!! СРОЧНО!!! Массив 5 на 5 заполнить с клавиатуры выяснить сколько чисел над главной диагональю начинаются с

цифры 5

Информатика

1 ответ:

Katy-katy4 года назад

0 0

Программа на Паскале.

Прилагается решение.

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

Напишите программу, которая в зависимости от введенного возраста добавляет слова «год», «года» или «лет». Например, при вводе во

Ира1990 [667]

Var age:integer;
begin
readln(age);
if ((age mod 100 >= 10) and (age mod 100 <= 19)) then writeln(age, ' лет')
else if (age mod 10 = 1) then writeln(age, ' год')
else if ((age mod 10 >= 2) and (age mod 10 <= 4)) then writeln(age, ' года')
else writeln(age, ' лет');
<span>end.</span>

0 0

4 года назад

дан двух мерный массив,вывести на экран элементов главной диагонали.

Denben10

uses crt;
type matr=array[1..20,1..20] of integer;
proc=procedure(m:matr;n:byte);

0 0

4 года назад

Придумай задачу условие которой содержит слова "если ..., то ..."..

foxmoon [131]

Докажите, что если два числа четные, то их сумма и разность, тоже четные.

0 0

4 года назад

(x<17)V(x<16) для числа x = 1 помогите дам 15 баллов

Федя Крюгер [3]

(1 < 17) V (1 < 16)

1 V 1 = 1

0 0

4 года назад

Вычислить сумму Z = 1 + 2 + 3 + ... . Вычисления прекратить, когда значение Z превысит заданное значение A.

Алекс696

Pascal

var A,Z,n:real;

begin

writeln('vvedite A ');

readln(A);

Z:=0;

n:=0;

while Z<A then

begin

Z:=Z+n;

n:=n+1;

end;

writeln(Z,'pri n=',n);

readln;

end.

0 0

4 года назад