1 год назад

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

Знания

Информатика

1 ответ:

РенатМогучий1 год назад

0 0

Var A,k:integer;
Begin
k:=-1;
Repeat
Read(A);
if A mod 2 = 0 then k:=k+1;
Until A=0;
WriteLn('k = ',k)
End.

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

Как это понять?объясните нормально пж

нина тимошенко

Зайти в Паинт и делать все по инструкции:з

0 0

3 года назад

В классе 35 человек. Последовательно вводятся оценки учеников за контрольную работу. Найдите средний балл и количество пятёрок.

Pulsar

Var
eval: array[1..35] of byte;
i, good: integer;
sr: real;

begin
good := 0;sr := 0;
for i := 1 to 35 do
begin
    write(i, '.) ');readln(eval[i]);
    sr := sr + eval[i];
    if eval[i] = 5 then inc(good);
end;
sr := sr / 35;
writeln('Всего пятерок: ', good);
writeln('Средний бал: ', sr:0:2);
end.

0 0

3 года назад

Вводится число от 1 до 15.вывести данное число,записанное римскими цыфрами

Allex81s

Var a:integer;
begin
readln(a);
if a = 1
then write('I');
if a = 2
then write('II');
if a = 3
then write('III');
if a = 4
then write('IV');
if a = 5
then write('V');
if a = 6
then write('VI');
if a = 7
then write('VII');
if a = 8
then write('VIII');
if a = 9
then write('IX');
if a = 10
then write('X');
if a = 11
then write('XI');
if a = 12
then write('XII');
if a = 13
then write('XIII');
if a = 14
then write('XIV');
if a = 15
then write('XV');
end.

0 0

3 года назад

В каждом из четырех углах комнаты стоит компьютер напротив каждого из этих компьютеров так же стоит компьютер. Сколько всего в к

Юлия2010 [14]

В каком направлении стоят 4 компьютера

0 0

3 года назад

В чем состоят различия в технологии распознавания текста при использовании растрового и векторного методов? Плиз зделайте быстре

mali1000 [1]

Ну где качество печати ужасное и нужно распознать его - используют векторный метод распознания, а растровый накладывается на растровые шаблоны символов, которые хранятся в памяти системы

0 0

3 года назад