Линейные программы на паскале примеры
Автор Женя Хурс задал вопрос в разделе Другие языки и технологии
Помогите составить программу в Pascal ABC и получил лучший ответ
Ответ от D.E.N.[гуру]
program ok;
var
num:integer;
a,b,c:integer;
begin
readln(num);
a:=num mod 10; num:=(num-a)div 10;
b:=num mod 10; num:=(num-b)div 10;
c:=num;
num:=a+b+c;
if num or 1 = num then
writeln('Нечетное') else writeln('Четное');
readln;
end.
Источник: не тестировал, не оптимизировал (для наглядности)
Ответ от Влад[гуру]
programm a; var a,b,c,d,sum:integer; begin writeln('введите число'); readln(a); b:=a div 100; c:=a mod 100 div 10; d:=a mod 10; sum:=b+c+d; if (sum mod 2 = 0) then writeln('Является') ese writeln('Не явл
programm a; var a,b,c,d,sum:integer; begin writeln('введите число'); readln(a); b:=a div 100; c:=a mod 100 div 10; d:=a mod 10; sum:=b+c+d; if (sum mod 2 = 0) then writeln('Является') ese writeln('Не явл
Ответ от Георгий Зотиков[гуру]
вот программа, отсюда возьми сумму цифр а определить, четность - это просто (остаток от деления на 2 равен0program sumcifr; uses crt; var n: longint; s: integer; j:integer; begin clrscr; s:=0; j:=0; write('ввести число
вот программа, отсюда возьми сумму цифр а определить, четность - это просто (остаток от деления на 2 равен0program sumcifr; uses crt; var n: longint; s: integer; j:integer; begin clrscr; s:=0; j:=0; write('ввести число
Ответ от Krab Bark[гуру]
program p1; var a:integer; begin readln(a); writeln(not odd(a div 100+a div 10 mod 10+a mod 10) end. program p2; var a,b,c,d:real; begin readln(a,b,c); if (a<=b)and(a<=c) then c:=a else if b<=c then d:=b else d:=c; writel
program p1; var a:integer; begin readln(a); writeln(not odd(a div 100+a div 10 mod 10+a mod 10) end. program p2; var a,b,c,d:real; begin readln(a,b,c); if (a<=b)and(a<=c) then c:=a else if b<=c then d:=b else d:=c; writel
Ответ от Ѝля[новичек]
помогите нужно составить программу по решению квадратного уравнения ах в квадрате + bx=0 паскаль что то вроде того кто разбирается помогите (((((
помогите нужно составить программу по решению квадратного уравнения ах в квадрате + bx=0 паскаль что то вроде того кто разбирается помогите (((((
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите составить программу в Pascal ABC