С клавиатуры вводится 10 целых чисел, найти наибольшее из чисел оканчивающихся на 7

Знания

Информатика

1 ответ:

ИванРябов3 года назад

0 0

Var
   A,i,Max:integer;
Begin
Max:=0;
For i:= 1 to 10 do
    Begin
    Read(a);
    if (Abs(A) mod 10 = 7)and(A>Max) then Max:=A;
    End;
WriteLn('Max = ',Max);
End.

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

У исполнителя Квадратор две команды, которым присвоены номера: 1. возведи в квадрат2. прибавь 1 Первая из них возводит число на

Oxana2010

Из 2 в 27
1)2^2=4
2)4+1=5
3)5^2=25
4)25+1=26
5)26+1=27
ответ:12122

0 0

4 года назад

Помогите вопросы по информатике. 1.Какой вид сортировки используют для сортировки по нескольким параметрам? 2.Назначение сортиро

cv1981

1. Любой вид. К примеру - методом пузырьков.
2. Сортировка требуется для упорядочивания элементов.
3. Те, которые допускают сравнение друг с другом.

0 0

4 года назад

1. Если 128 символьным алфавитом записано сообщение из 5 символов, то чему равен объём сообщения?2. В некоторой стране автомобил

Капризик [2K]

1. N=128 N=2^i i=7 - бит в одном байте. 7*5=35 бит - объем сообщения.

0 0

4 года назад

Помогите с заданием по информатике!!! нужно составить программу в Паскале условие: даны три числа И нужно доказать что они прина

Amid Nugal

Uses Crt;
var E, F, X, Y, Z: real;
bol: boolean;
begin
ClrScr;

Write(' E = '); ReadLn(E);
Write(' F = '); ReadLn(F);

Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
Write(' Z = '); ReadLn(Z);

bol:=(X>=E) and (X<=F) and (Y>=E) and (Y<=F) and (Z>=E) and (Z<=F);
if bol=true then Writeln (' Принадлежат !!!')
else WriteLn (' Нет...');

ReadLn;
end.

0 0

1 год назад

Проверить, делится ли случайное число на 3. Сообщить полученный результат. Паскаль

USSR I3K [2.4K]

var

z: integer;

begin

randomize;

z:=random (1000) -500;

writeln (z);

if z mod 3=0 then writeln (' число делится на 3')

else writeln (' число не делится на 3')

end.

0 0

4 года назад