Pascal для новичков a. найди число- 0 имя входного файла стандартный ввод имя выходного файла стандартный вывод ограничение по времени 2 секунды ограничение по памяти 64 мегабайта дано число n. необходимо найти минимальное число, большее n, которое нацело делится на 19. формат входных данных вводится целое число n (1≤n≤230). формат выходных данных требуется вывести искомое число.

👇

Ответ:

dolgenco123

12.03.2023

Var n, m:integer;
begin
read(n);
m:=n+1;
while m mod 19<>0 do begin
if (m>n) and (m mod 19=0) then break;
m:=m+1;
end;
write(m);
end.

4,6(5 оценок)

Открыть все ответы

Ответ:

toalexalfaa

12.03.2023

Задание №1

var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
end.

Задание №2

var a,d,n:integer;
begin
writeln('Введите первый член, знаменатель, число членов');
read(a,d,n);
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));
end.

Задание №3

var m,n:integer;
begin
writeln('Введите m и n');
read(m,n);
if m=n then begin
m:=0;
n:=0;
end;
if (m>n) then n:=m
else if n>m then m:=n;
end.

Задание №4

var a,b,c:integer;
begin
writeln('Введите стороны a,b,c');
read(a,b,c);
if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный')
else writeln('Треугольник неравнобедренный');
end.

Задание №5

var a,b,c:integer;
begin
a:=0;
c:=0;
repeat
writeln('Введите число');
read(b);
if b<0 then a:=a+1;
c:=c+1;
until c=3;
writeln('Количество отрицательных = ',a);
end.

Задание №6

var a,c:integer;
b:real;
begin
writeln('Введите количество часов');
read(a);
c:=a div 3;
b:=power(2, c);
writeln(b);
end.

Задание №7

const
n=10;
var a:array [1..10] of integer;
i,k,s:integer;
begin
writeln('Введите k');
read(k);
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]);
if a[i] mod k =0 then s:=s+a[i];
end;
writeln(s);
end.

4,4(19 оценок)

Ответ:

AnDrejk4

12.03.2023

Паскаль "не умеет" читать числа напрямую. В случае "текстового ввода" он читает всё вводимое, как последовательность символов, которую затем анализирует и преобразует в соответствии со списком переменных в операторе ввода и их типом.
Завершается текстовый ввод в Паскале всегда нажатием клавиши Enter, посылающей последовательность символов с десятичными кодами 13 и 10 (CR - "возврат каретки" и LF- "перевод строки"), либо считыванием этих кодов из файла.
"Команда" Realln (на самом деле это не команда, а процедура) считывает и удаляет последовательность символов с кодами 13, 10, а Read - оставляет эти коды не считанными. Если после Read будет еще один оператор ввода, читающий СИМВОЛЬНЫЕ данные (string, char), то оставшиеся необработанными после предыдущего Read символы с кодами 13,10 будут восприняты, как вводимые, что неверно.

Как итог: только в случае, когда есть ввод символьных данных и эти данные вводятся не в единственном операторе ввода, перед вводом таких данных нужно указывать Readln. В прочих случаях разницы нет.

4,4(10 оценок)

Это интересно:

Дом-и-сад

11.04.2023

Как вырастить росянку...

Образование-и-коммуникации

03.11.2022

Как позвонить в Лондон: Полезная информация для тех, кто хочет оставаться на связи...

Компьютеры-и-электроника

10.01.2020

Как стать рыцарем класса Sheath в игре Elsword: полный гайд для начинающих игроков...

Образование-и-коммуникации