4 года назад

Выяснить, каких цифр больше: четных или нечетных?

2 ответа:

0 0

Program primer;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
writeln ('vvedite massiv');
for i:=1 to n do
readln( a[i]);
for i:=1 to n do
if (a[i] mod 2=0)>(a[i] mod 2=1) then
writeln ('ceotnih cisel bolise')
else
writeln('neceotnih cisel bolise');
readln;
end.

greg-smart4 года назад

0 0

Чётных больше.........

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

Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить rкубами, если a>b>c, то смените знак каждого числа, в прот

Allessa

program chisla;
var a,b,c:real;
begin
write('Введите числа a,b и с через пробел:'); readln(a,b,c);
if (a<=b) and (b<=c) then begin
a:=exp(ln(a)*3);
b:=exp(ln(b)*3);
c:=exp(ln(c)*3);
end;
if (a>b) and (b>c) then begin
a:=-a;
b:=-b;
c:=-c;
end;
writeln(a,' ',b,' ',c);
end.
;)

0 0

4 года назад

В кругу сидят Иванов, Петров, Марков и Карпов. Их имена: Андрей, Сергей, Тимофей и Алексей. Известно, что: • Иванов не Алексей и

КСЕНИЯ57

Сергей Иванов
Алексей Петров
Андрей Марков
Тимофей Карпов

0 0

4 года назад

Прочитать ещё 2 ответа

Напишите программу, которая будет выводить на экран элементы последовательности трибоначчи- первые элементы последовательности:

Александр Илларио... [137]

//PacalABC.NET 3.4.2

//Используется формула аналогичная формуле Бине для чисел

//Фибоначчи

const

index = power(33, 0.5);

a1 = power((19 + 3 * index), 1 / 3);

a2 = power((19 - 3 * index), 1 / 3);

b = power((586 + 102 * index), 1 / 3);

var

n: smallint;

function tribonacthi(n: smallint): biginteger;

begin

if (n = 1) or (n = 2) then result := 0

else

result := RoundBigInteger(3 * b * ((power((1 / 3 * (a1 + a2 + 1)), n - 1)) / (power(b, 2) - 2 * b + 4)));

end;

begin

try

n := readinteger('Введите количество элементов для вывода:');

except

on system.formatexception do

writeln('Неверный формат ввода');

end;

for var i := 1 to n do write(tribonacthi(i), ' ');

end.

0 0

4 года назад

Пожалуйста помогите умные люди!!!!!!!!!! Текст занимает 6 страниц. На каждой странице 30 строк по 80 символов. Определить объём

lrchie

Хмм... Про кодировку ни слова, так что, надеюсь, это не Unicode.
На один символ обычно в таких задачах отводится 1 байт.
значит 80 символов = 80 байт.
в 30 строках 30* 80 байт = 2400 байт.
на каждой странице по 30 строк, а страниц 6, значит 6 * 2400 байт = 14 400 байт

0 0

4 года назад

1. Процессор Intel 80386 , разрядность шины адреса .... 2. Вычисли количество адресуемых ячеек памяти, если разрядность шины адр

Arina1992

Дано Шины адреса 36
Процессор 80386
Решения
80386 * 36 = 2893896

0 0

2 года назад