Помогите ?
Помогите !
Паскаль!
ИНФОРМАТИКА!
Составить программу , находящую сумму и произведение трёх чисел !
Дано число его удвоить и утроить составить программу в паскаль?
Дано число его удвоить и утроить составить программу в паскаль.
Помогите составить программы в паскале в 2 - х заданиях 5 вариант(в табличке13)?
Помогите составить программы в паскале в 2 - х заданиях 5 вариант(в табличке13).
Помогите составить программы для первых двух заданий срочно (вариант 5)в паскале?
Помогите составить программы для первых двух заданий срочно (вариант 5)в паскале.
Помогите составить программы для третьего и четвертого заданий срочно (вариант 5) в паскале?
Помогите составить программы для третьего и четвертого заданий срочно (вариант 5) в паскале.
Помогите?
Помогите!
Напишите пожалуйста блок - схему и программу для Паскаля!
Помогите пожалуйста составить программу Паскаль 6n = 5 m = 4?
Помогите пожалуйста составить программу Паскаль 6
n = 5 m = 4.
Набрать в паскале программу флага помогите пожалуйста?
Набрать в паскале программу флага помогите пожалуйста.
Помогите составить эти программы на паскаль?
Помогите составить эти программы на паскаль.
Написать программу на паскале ?
Написать программу на паскале ?
Перед вами страница с вопросом Помогите составить программу в паскаль?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Uses crt ;
var otvet : real ; a, b, z12, z1, z2, x : integer ;
begin
textcolor(random(2, 15)) ; write('Задача № : ') ; textcolor(random(1, 15)) ; readln(z12) ; if (z122) then begin textcolor(4) ; writeln('Такой задачи нет!
') ; textcolor(random(1, 15)) ; end ; if z12 = 1 then b : = 10 ; for a : = 1 to b do begin otvet : = (sqrt(a) + sqr(a) * a) * a ; textcolor(random(1, 15)) ; writeln(a, ') ', otvet) ; end ; if z12 = 2 then b : = 40 ; for a : = 0 to b do if (a mod 7 = 0) and (a>0) then begin textcolor(random(1, 15)) ; writeln(a, ') ', a) ; end ;
end.