Дано трехзначное число. Если число сотен равно единицам то вывести нет иначе да. PascalABC

Знания

Информатика

1 ответ:

Антигрешник [268]3 года назад

0 0

var n: integer;

begin

readln(n);

if n mod 10=n div 100 then

write('нет') else write('да');

end.

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

Цифра,буква,знак препинания и т.д.

KhI3009

Эмм.. Это загадка? Символ?

0 0

4 года назад

Составить программу, которая определяет имеется ли в данном слове, часть, равная другому заданному слову. Например: слово 'код'

Андрей816

Program test;
var s,s1:string;z:boolean;
begin
readln(s);
readln(s1);
z:=s.Contains(s1);
if z = true then writeln('В слове "',s,'" содержиться слово "',s1,'".')
else writeln('В слове "',s,'" не содержиться слово ',s1,'".');
<span>end.</span>

0 0

4 года назад

Составить программу для вычисления среднеарифметического N произвольных чисел. Обозначения: S-сумма всех чисел; SR-среднеарифмет

Иностранка [10]

<span>PROGRAM PR17;
VAR
I,N:INTEGER;
S,SR,A:REAL:
BEGIN
WRITE(‘ Введите N’);
READLN(N);
S:=0;
FOR I:=1 TO N DO
BEGIN
WRITE(‘ Введите ‘,I,’ число’);
READLN(A);
S:=S+A:
END;
SR:=S/N;
43 WRITELN(‘Ответ: SR = ’,SR:8:3);
END.</span>

0 0

4 года назад

Как перевести число из восьмиричной системы счисления в десятичную?

lana29 [128]

Короче, берешь число в восьмеричной системе счисления, например, - 125

потом пишешь над каждым разрядом цифры справа на лево, потом выносишь число из разряда и умножаешь на 8 в степени номера этого числа

0 0

4 года назад

книга, набранная с помощью компьютера, имеет информационный объем 1 Мбит На каждой ее странице 32 строки по 64 символа. Чему рав

Lokesh

32 страницы при кодировке Unicode (стандартной)

0 0

4 года назад