Определить кол-во чисел, кратных 5, трехзначных и сумму оканчивающих 9. (ПАСКАЛЬ)

Знания

Информатика

1 ответ:

андрей321033 года назад

0 0

Program F1tsku;
var x:integer;
begin
writeln ('Введите число');
readln(x);
if (x mod 10=9) and (x mod 5=0) then
writeln('Да') else writeln('Нет');
end.

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

Информатика 2 класс Вставь пропущенные слова в двадцатом веке был создан

Cardiolokb [406]

В 20 веке был создан телевизор

0 0

4 года назад

PASCALABCNET Дан набор из N целых положительных чисел. Для каждого числа вычисляется сумма двух последних цифр в его десятичной

злобный тапок

Var a:array[1..18] of integer;
s,i,x,n:integer;
begin
for i:=1 to 18 do a[i]:=0;
readln(n);
for i:=1 to n do begin
readln(x);
s:=x mod 10;
x:=x div 10;
s:=(x mod 10)+s;
a[s]:=a[s]+1;
end;
s:=1;
for i:=2 to 18 do if a[i]>=a[s] then s:=i;
writeln(s);
end.

0 0

4 года назад

Привет Пожалуйста напиши Паскаль Спасибо

Rickman [56]

===== PascalABC.NET =====

function nF(n: integer) := Range(1, n).Product;

begin

SeqGen(5, i -> nF(i), 1).Sum.Println

end.

0 0

3 года назад

Двоичное значение выражения 14х = 10(в десятичной системе) основание системы счисления х = 1)8 2)6 3)16 4)5

Dmitry-EG

14х
$14x = 1 \times {6}^{1} + 4 \times {6}^{0} = 10$

0 0

4 года назад

Помогите, пожалуйста) Задание 1 Вопрос: ( 3 балла) Какой оператор в языке Паскаль предназначен для реализации цикла с заданным

Pixa

Задание 1 - 2
Задание 2 - 2,3,4
Задание 3 - 2,3
Задание 4 - 600
Задание 5 - 2 байта

0 0

4 года назад