Question

Срочно нужно решить
1.Написать программу деления 2-х чисел с проверкой деления на ноль.
2.Написать программу,которая выведет возрастающий ряд натуральных чисел от 1 до N.
3.Написать программу,которая в таблице 5*6,заполненной целыми сл. числами из промежутка от -40 до 40,вычислить модуль разности между суммами отрицательных и положительных элементов.

Answer 1

2) var k,n:integer;
begin
read(n);
for k:=1 to n do write (k,'   ');
end.

Answer 2

задание мне объясни первое, что за проверка деления на ноль? пример приведи

Answer 3

2/0 ?! :) Ну тупи, на ноль делить нельзя

Answer 4

реши 3 плиз

Answer 5

uses crt;
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.

Answer 6

это первое

Answer 7

напишите 3