4 года назад

Составить программу, которая определяет, есть ли среди цифр целого трёхзначного числа одинаковые

1 ответ:

nezlobin4 года назад

0 0

var s: string;
begin
read(s);
if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then
writeln('Есть одинаковые цифры')
else
writeln ('Одинаковых цифр нет');
end.

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

Что такое орфографический контроль

маргилина [7]

Это проверка текста на орфографию.

Словарь храниться в файле,в базе данных, зависит от реализации ОС или ПО. Также словарь может закачиваться или запрашиваться из Интернета.

0 0

4 года назад

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

Битовая глубина цвета равна 32. Видеопамять делится на две страницы. Разрешающая способность монитора 800 х 600. Вычислить объем

Катейка Котик Пиф [6]

число пикселей на странице: 800 * 600 = 480000

у нас 2 страницы: 2 * 480000 = 960000 - число пикселей на двух страницах

объем видеопамяти: 32 * 960000 = 30720000 бит = 3840000 байт = 3750 Кбайт

0 0

4 года назад

Условие: В школе решили набрать три новых математических класса. Так как занятия по математике у них проходят в одно и то же вре

robert523

A, b, c = map(int,input().split())
k = (a+1)//2 + (b+1)//2 + (c+1)//2
print(k)

Пример:
20 21 22
32

0 0

4 года назад

Подскажите как выглядит паскаль - программа, которая может подсчитать количество целых среди чисел a, b, c и d.(с помощью развет

Люлючия

uses crt;
var a,b,c: real;
k: byte;
begin k:=0;
write('a=');
readln(a);
if round(a)=a then k:=k+1;
write('b=');
readln(b);
if round(b)=b then k:=k+1;
write('c=');
readln(c);
if round(c)=c then k:=k+1;
writeln(k);
readln;
end.

0 0

4 года назад

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

Алексей 1991 [175]

Var a:integer;
begin
read(a);
if a>0 then a:= sqr(a)
else write('число отрицательное');
end.

0 0

4 года назад