Ввести с клавиатуры 2 числа.Напечатать их частное или сообщение "делить на ноль нельзя"pascalABC

Знания

Информатика

1 ответ:

Савельев Илья [665]1 год назад

0 0

Program CrazyCoder;
var a, b: integer; c: real;
begin readln(a, b); if(a = 0) or (b = 0) then writeln('Делить на ноль нельзя!') else begin c := a / b; writeln(c); end; readln;end.

Читайте также

На с++ с циклом white Дано число n. Необходимо найти минимальное число, большее n, которое нацело делится на 19. Формат входных

vseznau [14.6K]

#include <bits/stdc++.h>

using namespace std;

int main() {

int n;

cin >> n;

++n; // Потому что нам нужно число, большее n

while (n % 19 != 0) ++n; // Увеличиваем n, пока оно не делится на 19

cout << n << endl;

return 0;

}

0 0

4 года назад

Заполнить массив из 10 элементов случайными числами в интервале [0..100] и вывести на экран значение всех элементов ,которые ока

Lina ParfumBar [61]

Var a: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(101);
if a[i] mod 10=5 then write(a[i], ' ');
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

у деда есть коза волк и капуста им нужно переправится через реку...дед может перевозить только одну особу.но на берегу не должни

Alexiaa

сначала волка перевести потом капусту а потом козу

0 0

4 года назад

Прочитать ещё 2 ответа

Добрый вечер! Помогите мне пожалуйста с информатикой. Что будет напечатано на экране в результате выполнения следующей программы

Виталий262

Программа не доработана,не будет запускаться,очень много ошибок

0 0

4 года назад

Программа выполняется в паскале! Составьте программу для решения следующей задачи:Процентная ставка по вкладу – 15% годовых. Пер

Динулечка [7]

Var A,B:real;count:integer;
begin
readln(A,B);
while A<B do
beginA:=A+A/100*15;
count:=count+1;
end;
writeln(count);
<span>end.</span>

0 0

4 года назад