М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
diken1
diken1
27.02.2023 05:22 •  Информатика

1. среди трехзначных чисел сколько таких, что сумма крайних в три раза больше средней цифры. 2.среди трехзначных чисел сколько таких, что все цифры разные

👇
Ответ:
StesnyaШka
StesnyaШka
27.02.2023

1) program z1;

uses crt;

var a,b,c,d,e,f,k,i: integer;

begin

for i:=100 to 999 do begin

a:=i div 100;

b:=i mod 100 div 10;

c:=i mod 100 mod 10;

d:=a+c;

e:=3*c;

if d>e then innc(k);

end;

writeln(k);

end.

4,6(50 оценок)
Открыть все ответы
Ответ:
806amanova
806amanova
27.02.2023
Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?

ЛЕКЦИЯ

Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?

Переменной F присвоит значение 20

Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА', ,).

COPY('ИНФОРМАТИКА',3 ,6)

Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?

24 + 24 =48

Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7));

ЭЛЕКТРО
4,5(31 оценок)
Ответ:
fima9
fima9
27.02.2023
1. Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?

ЛЕКЦИЯ

2. Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?

Две длины слова, т.е. 9+9=18

3. Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА',3,6).

Надо взять, начиная с третьего символа, шесть символов.

4. Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?

24 + 24 =48

5. Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7)); ?

ЭЛЕКТРО
4,5(23 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ