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

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

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

4 года назад

13

Помогите)задание:

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

Информатика

1 ответ:

пуся4 года назад

0 0

var

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

Линейный алгоритм найти произведение 3 чисел

урио

Ввести число А
ввести число В
ввести число С
вычислить Д=А*В*С
вывести на экран Д
конец

0 0

3 года назад

Вычислите пропускную способность канала связи, если известно, что за 4 секунды было передано 5 файлов, каждый размером 128 байт

ЕЛЕНАКОЧЕТКОВА

Пропорция:

4 секунды - (5 * 128 = 640) байт

1 секунда - X

Решаем:

X = (1 * 640) / 4 = 640 / 4 = 160

Ответ:

Пропускная способность канала равняется 160 байт за одну секунду.

0 0

4 года назад

Информация , которую нельзя хранить на внешних носителях ,-это а) запахи б)изображение и звук в) текст . записанный на каком

MARKEZ [39]

Нельзя хранить запахи

0 0

4 года назад

50 Баллов. Нужна помощь в программе(паскаль).

I Ирина

<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>

begin
var (x,y):=ReadReal2('Введите координаты точки:');
Writeln((y>3-x) and (y>0) and (x>0) and (x*x+y*y<36))
end.

<u>Пример</u>
Введите координаты точки: 5 2.1
True

0 0

3 года назад

Дан двумерный массив a, размером (nm). Найти максимальный элемент в каждой строке матрицы среди положительных элементов.

Розалина1993 [206]

Var a:array [1..50,1..50] of integer;
m,n,i,j,k,max:integer;
begin
writeln ('Введи количество строк и столбцов');
readln (n,m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
max:=0;
for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln ('Максимальный элемент ',i,' строки = ',max);
max:=0;
end;
readln;
end.

0 0

4 года назад