tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу которая возводит
Составить программу которая возводит в квадрат остаток от целочисленного деления числа а на 15 и выводит результат
rom4il
2 15.07.2019 01:10
0
Ответы
HelpMePlsIs
03.10.2020 04:27
Program Program1;
var
A,B:Integer;
C,D:Real;
Begin
ReadLn(A);
B:=A mod 15;
C:=sqr(B);
WriteLn(C);
End.
ПОКАЗАТЬ ОТВЕТЫ
tach11
03.10.2020 04:27
Var x:integer;
begin
readln(x);
writeln((x div 15)*(x div 15));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
krutikovaelizaozax2f
04.08.2019 11:50
Статья набранная на компьютере содержит 65 страниц на каждой странице 40 строк,в каждой строке 40 символов. определите размер статьи в кодировки к о и -8 в которой каждый символ кодируется...
Qulya15
01.10.2019 03:10
Стандартные приложения windows и определения их...
shvffvvfff
01.10.2019 03:10
Что из указанного входит в функциональных составляющих информационной системы? 1) аппаратные устройства; 2) программные средства; 3) документы; 4) электронные документы....
арсений213
08.11.2020 15:05
В велокроссе участвуют 125 спортсменов. Специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер с использованием минимально...
sofitit0410
08.11.2020 15:04
Запишите число в развернутом виде1) 1012(3)2)524(7) надо ...
Romabl4
08.11.2020 15:04
Сколько битов должно составлять поле для сохранения абсолютной величины порядка в ячейке памяти для хранения вещественного числа, чтобы в этой ячейке можно было записать величину массы...
3класс49
08.11.2020 15:04
Составьте блок схему алгоритма, записанного на алгоритмическом языкеИнформатика 8 класс...
basirovdanil
08.11.2020 15:03
Проверьте коды на ошибки Программа выдает ошибки, я их исправляю в итоге она выдает еще множество других. Я не понимаю что не так. //файл Rech.spp #include stdafx.h #include //Функция...
lambert1337
08.11.2020 14:54
Підготуй коротке повідомлення на тему Розвиток друкарства в Україні 5 класс...
vavelichTabak
16.07.2019 19:40
Вася решил записать пароль от своей почты, чтобы не забыть его. он когда-то читал, что пароли нужно обязательно шифровать, чтобы никто не смог войти в его почту. тогда он зашифровал...
Популярные вопросы
Как с мензурки определить объем одной капли?...
3
Заменить звёздочки цифрами ! 6*5+*7*=1061 *6*-1*5=173 *7*+1*9=982 6*5-*7*=130...
3
Вскобках сис. счисления 1) вычислить 11100101011(2)+1101111101(2)= 1000001(2)-11111(2)=...
2
Исподлобья- словообразовательный разбор...
2
Перевірні слова петляв, левада, криничка, джерельце,великі...
2
Скакой целью в сказке о медведихе медведиха вышла на прогулку? варианты: а поесть...
3
Твор на тему осень на дворе (завтра сдавать)...
1
Составить 5-6 сложных предложений на тему доброта.( )...
2
Как из гидроксид железа 2 получить оксид железа...
2
Мушел жас предложения на казахском 5 предолжений...
2
var
A,B:Integer;
C,D:Real;
Begin
ReadLn(A);
B:=A mod 15;
C:=sqr(B);
WriteLn(C);
End.
begin
readln(x);
writeln((x div 15)*(x div 15));
end.