770glym
09.08.2021 13:07

Кумир 8 класс информатика. решить 3 , 80 .

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Еля24
25.11.2020 21:53
1) Есть такой тип, в чем вопрос?
2) >, < ,<>, >=, <=, =
3) or, and
4) название файла, хвостик названия файла после последней точки - обычно нужен для определения типа файла
5) файл который является результатом операции архивирования одного или нескольких файлов
6) конкретнее?
7) набор команд которые компилируются так чтоб их можно было исполнить на компьютере.
8) среда, окружение, ПО которое облегчает создание программ
9) окружение, которое обеспечивает взаимодействие харда и софта. Кратко говоря позволяет запускать программы и взаимодействовать с пользователем или внешними устройствами
10) наверное типа +, - и тп
0,0(0 оценок)
Ответ:
Влад5055
22.04.2020 05:49
Var
let: array [1..63] of Integer = (5 , 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 ,16 ,17 , 18, 19 , 20, 25, 26, 27, 28, 29,30, 35, 36, 37, 38, 39, 40, 45, 46, 47, 48, 49, 50, 55, 56, 57, 58, 59, 60, 65, 66, 67, 68, 69, 70, 75, 76, 77, 78, 79, 80, 85, 86, 87, 88, 89, 90, 95, 96, 97, 98, 99);
gad: array [1..9] of Integer = (1, 21, 31, 41, 51, 61, 71 ,81 ,91);
goda: array[1..27] of Integer = (2,3,4,22,23,24,32,33,34,42,43,44,52,53,54,62,63,64,72,73,74,82,83,84,92,93,94);
k: Integer;
begin
for k:=1 to 99 do
begin
if k = let then
begin
writeln('Мне', k, 'лет');
end;
if k = gad then
begin
writeln('Мне', k, 'год');
end;
if k = goda then
begin
writeln('Мне', k, 'Года');
end;

end;

end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота