Нужно решить 1.написать программу деления 2-х чисел с проверкой деления на ноль. 2.написать программу,которая выведет возрастающий ряд натуральных чисел от 1 до n. 3.написать программу,которая в таблице 5*6,заполненной целыми сл. числами из промежутка от -40 до 40,вычислить модуль разности между суммами отрицательных и положительных элементов.
autosteklo777
1
29.05.2019 10:40
0
Другие вопросы по теме Информатика
тамик50
21.11.2021 00:36
Mished
21.11.2021 00:37
SonyaKot1
21.11.2021 00:42
fac7
19.06.2019 06:20
elemesayan
19.06.2019 06:20
Viola2801
19.06.2019 06:20
нюра42
19.06.2019 06:10
kimvlad1712
19.06.2019 06:10
Diiankkk
23.06.2019 21:00
Популярные вопросы
- Вмолекуле белка следующая последовательность аминокислот : глутамин...
2 - Plant and write a 150-word essay illustrating plato s quotation...
3 - Вбаке легковой машины 40 л. бензина. машина тратит на каждые 100км...
2 - Напишите эссе (100 слов) на тему для чего важен мировой язык?...
3 - Сообщение про течение океанов: межпасатное, гольфстрим, куросио,...
1 - Написать программу,классифицирующую треугольники(равнобедренные,равносторонние,разносторонние),если...
2 - Представьте выражение в виде дроби 5/6 - x/y = с объяснением обязательно...
1 - Как практически можно отличить крекинг бензин от бензина прямой...
3 - Найти и исправить ошибки, допущенные в предложение с причастным...
3 - Возле речки, у обрыва, плачет ива, плачет ива. может, ей кого-то...
3
begin
read(n);
for k:=1 to n do write (k,' ');
end.
var a,b,s:real;
BEGIN
clrscr;
Writeln('Vvedite chislo a: ');
Readln(a);
Writeln('Vvedite chislo b: ');
Readln(b);
If b=0 then Writeln('Popytka delit na 0!');
S:=a/b;
Writeln('',a,' / ',b,' = ',s);
readln;
END.