Вишняков997
?>

Паскаль.даны три вещественных числа. вывести на экран те их них, которые принадлежат интервалу (1, 6 - 3, 8

Информатика

Ответы

vladimir152
Var   a: array[1..3] of real;   i, n: integer; begin   write('введите через пробел три любых числа: ');   readln(a[1], a[2], a[3]);   for i : = 1 to 3 do       if (a[i] > = 1.6) and (a[i] < = 3.8) then writeln(a[i]) end. введите через пробел три любых числа: 13.43 2.41 -1.34 2.41
myataplatinumb348
18 | 36 | 0 | -3 | 4 | 15 | -18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве). 36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве). 0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве). -3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве). 4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве). 15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).
ekater01806

1. цикл

var a,k: integer;

begin

write('введите число: ');

readln(a);

while a< > 0 do

begin

if(a mod 2 = 0) and (a mod 10 < > 8) then k: =k+1;

write('введите число: ');

readln(a)

end;

if k > 0 then writeln('в последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('в последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

2. массив через цикл

var a,k,i: integer;

p: array [1..1000] of integer;

begin

repeat

write('введите число: ');

readln(a);

if a< > 0 then

begin

i: =i+1;

p[i]: =a

end

until a=0;

for a: =1 to i do

if(p[a] mod 2 = 0) and (p[a] mod 10 < > 8) then k: =k+1;

if k > 0 then writeln('в последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('в последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль.даны три вещественных числа. вывести на экран те их них, которые принадлежат интервалу (1, 6 - 3, 8
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

mbobo28311
Azarova Anastasiya1707
Бегун-Марина
Voshchula David393
yuraotradnov
expozition
Эвелина
Salnikov1730
mmihail146
dmtr77
nata27-73589
dinadumno2114
Хохлова Иванович
Марина_Мария
ainred