tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Pascal для начинающих.
Pascal для начинающих. дано число с клавиатуры, если его квадрат больше чем утроенное, тогда вывести его на экран
zhakenovagulnaz
3 27.09.2019 01:20
1
Ответы
NikolayNik12
08.10.2020 21:33
Вот держи:
program abc;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a*a > 3*a) then writeln ('a = ', a)
else write ('Ne podhodit');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
orlovs2017
27.05.2019 07:30
Сколько битов памяти достаточно для кодирования одного пикселя 16-цветного изображения?...
tytyuuh88
27.05.2019 07:30
Растровый газетный рисунок состоит из точек четырех цветов: черного, темно-серого, светло-серого, белого. сколько битов понадобится для двоичного кодирования одного пикселя этого...
Xieb
15.09.2019 16:50
Вводится возраст пользователя в годах. определите возраст пользователя через 5 лет...
dolloc
15.09.2019 16:50
Текст набран в алфавите unicode.алфавит равен 65536 символов.какой информационный объём текста,если его продублировать 10 раз?...
ринат126
11.12.2020 10:36
Что означает запись А3:А20 в MS Excel?...
Dima1234567y
11.12.2020 10:36
сор информатика 7 класс не пишите кто нашёл и ТД ...
Mouse125
03.11.2020 08:24
эти два задания мне через 30 минут здавать...
Katyamaier777
03.11.2020 08:24
умоляю Определите, какие пароли являются надежными.1)123456782)Fg10!dD93)Abc4)123456785) 123abc...
lizavolod17
03.11.2020 08:29
Приведите примеры к устройствам ввода графической информации...
marmishenka
24.12.2020 22:32
А) Царапина. Но и такой довольно. Где паж мой? Сбегай, мальчик, за врачом Б) Меня перенесла сюда любовь,Её не останавливают стены.В нужде она решается на все. И потому-что мне...
Популярные вопросы
Одно из ребер прямоугольного параллелепипида в 2 раза короче другого ребра...
3
Синтоксический разбор предложения: над рекою появился туман....
3
30 б.в ниже предложениях из прочитанного текста пронумерованы все запятые....
2
Что говорят люди про компьютеры пятого поколения: 1)какие они должны быть...
1
15 ! 1) периметр равнобокой трапеции равен 52 см, основания - 13 и 21 см....
3
Длина дорожки в саду 35 метров миша раз чистил от снега 7 метров дорожке ира...
1
Как ты понимаешь смысл высказывания норвежского композитора грига в своих...
2
Вставить слова! вулканы сильно разрушены. сведения об их извержениях вулканы...
1
Анализ романа капитанская дочка а.с. пушкина по плану . ! 50...
2
Почему родник назвали родником? почему ,, работу родника можно сравнить с...
2
program abc;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a*a > 3*a) then writeln ('a = ', a)
else write ('Ne podhodit');
end.