Срочно нужно решить 1.Написать программу деления 2-х чисел с проверкой деления на ноль. 2.Написать программу,которая выведет возрастающий ряд натуральных чисел от 1 до N. 3.Написать программу,которая в таблице 5*6,заполненной целыми сл. числами из промежутка от -40 до 40,вычислить модуль разности между суммами отрицательных и положительных элементов.
первое задание непонятно, как это делимость на ноль?
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.
это первое
напишите 3
а 1 тоже правильно
уже точно
2) var k,n:integer; begin read(n); for k:=1 to n do write (k,' '); end.
2 точно правильно?
уверен. ты заказчик, тебе виднеее
напиши 1 и 3
Сейчас все проверю
Правильно 2-е
задание мне объясни первое, что за проверка деления на ноль? пример приведи
2/0 ?! :) Ну тупи, на ноль делить нельзя
0/2 можно делать
реши 3 плиз
от души