Дано n натуральных целых чисел, которые вводятся пользователем с клавиатуры. Составить программу, определяющую количество на¬туральных целых чисел, не превышающих 100 и крат¬ных 5.

227

305

Посмотреть ответы 2

Ответы на вопрос:

Neronminecraft

Информатика

4,5(77 оценок)

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел (n): ');

readln(n);

k:=0;

For i:=1 to n do begin

readln (a);

if (a mod 10 =5) and (a < 100) then k:=k+1;

end;

Writeln('Количество чисел кратных 5 - ',k);

End.

anastasia1292

Информатика

4,6(28 оценок)

uses crt; var a,s: real; beginwrite('введите общую цену товаров, которую вы хотите купить: '); readln(a); if a> 1000 then s: =a-0.1*aelse s: =a; writeln('стоимость покупки составляет ',s,' рублей.'); end.это программа. суть в том, что если цена больше 1000 рублей, то стоимость - это цена минус 1/10 от это цены, иначе цена совпадает со стоимостью.