Регистрация
Варвараминнннн
09.02.2021 05:24
Информатика
Есть ответ 👍

База данных "железнодорожные кассы" ориентировочные таблицы: "продажи", "посадочные места", "направления".

решить нужно 80 !
решить с access

205
401
Посмотреть ответы 1

Ответы на вопрос:

Единорог20001
Единорог20001
4,6(80 оценок)
Program al; var  n: integer;     f: boolean; begin  write('vvedite  n: ');   readln(n);       f: =false;     while n> 0 do  begin    if n mod 10=2 then     f: =true;     n: =n div 10;     end;   writeln( f);     readln; end.

Популярно: Информатика