Дано число. Определить оканчивается ли оно на 8.

Знания

Информатика

1 ответ:

Ахмед123 [108]2 года назад

0 0

//PascalABC.NET
begin
if(readinteger('Введите число:') mod 10 = 8) then write('Число оканчивается на 8')
else write('Число не оканчивается на 8')
end.

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

Хочу проверить себя. Для какого из указанных значений числа X истинно высказывание: (X > 4) И (X < 7) И (X < 6) 1) 5 2)

zurchik59

Ответ 5, оно уовлетворяет все условиям

0 0

2 года назад

продолжите фразы. а)под признаками объекта мы будем понимать его... б)свойства объекта.... в) действие объекта... д) состаяние о

Reks71

а)под признаками объекта мы будем понимать его...

свойства, действия, поведение, состояния

б)свойства объекта....

отвечают на вопросы: «Чем может отличаться один объект от другого?», «Что может измениться у объекта при выполнении действия?».

в) действие объекта...

отвечаеют на вопросы «Что он может делать?» (активное действие) или «Что с ним можно делать?» (пассивное действие).

д) состаяние объекта...

определённое сочетание значений всех или некоторых свойств этого объекта

0 0

5 лет назад

Значение слова локальный и глобальный

Dim- [133]

Глобальный-мировой, оч важный

0 0

4 года назад

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

Как нарисовать ОЛИМПИЙСКИЕ КОЛЬЦА в PascalABC? чтобы получилось вот-так

missalina

Uses graphabc;
var x,y:integer;
begin
x:=100;
y:=100;
SetPenWidth(8);
SetPenColor(clBlue);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clLimeGreen);
Drawcircle(x,y,50);
inc(x,110);
end.

0 0

4 года назад

Даны целые числа a и b написать программу которая выводит сначала меньшее число затем большее( на языке паскаль)

ministrff

Program Z_n;
var a,b:integer;
Begin
Readln(a);
Readln(b);
If a>b then begin write(b,' '); writeln(a); end
else begin write(a,' '); writeln(b); end;
end.

P.s Числа вводите через enter( Ввели число, нажали enter, потом ввели второе число)

0 0

4 года назад