Войти Регистрация Спроси ai-bota

Дано трехзначное число.замените среднюю цифру на ноль

Ответ:

yaxyeu

03.09.2020 12:44

var a: integer;

begin

readln(a);

writeln(a div 100 * 100 + a mod 10)

end.

0,0(0 оценок)

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

ANTON5452

03.08.2022 18:14

Выберите из списка три формата файлов большого объема. Верных ответов: 3txtmp3pdfavi...

maryyyyy2

04.10.2021 01:26

Дано пять чисел найти среднее число...

SadEngineer

11.03.2021 16:40

Чему равен десятичный эквивалент чисел 101011^2,1010^2...

youngest1111

11.03.2021 16:40

Вмассиве имеются целые и дробные числа. подсчитать количество целых и дробных. 9 класс...

MoonVar

11.03.2021 16:40

Какие кодовые таблицы для букв существуют в настоящее время? ш...

СашаБагнюк22

07.11.2021 06:36

Имеется дискета емкостью 1,44 мбайт. определить максимальное количество файлов черно-белых изображений размером 1280*1024 пикселей, которые можно записать на эту дискету....

Ivan856IgR

26.09.2022 04:32

Написать программу четности и нечётности числа. на языке паскаль...

Анна121314151

26.09.2022 04:32

Сее организуется многоуровневая иерархическая файловая система что это...

nagimako

26.09.2022 04:32

Что будет выведено на экран в результате выполнения фрагмента программы a: =5; b: =3; write( z(a)= , (b) );...

45172

27.05.2023 06:46

Вчем ошибка? var a,b,h,y,x: real; m: integer; begin a: =pi/4; b: =pi/2; m: =10; h: =(b-a)/m; x: =a; y: =cos(x)/sin(x); writeln( x= ,x, y= ,y); repeat x: =x+h; y: =cos(x)/sin(x);...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку