Помогите сделать что-то из этого(((( ооочень срочно
Answers & Comments
pacixor3) var a: integer; begin write('Введите число: '); readln(a); if a mod 2 = 0 then writeln('Число ', a, ' четное.') else writeln('Число ', a, ' нечетное. Увеличенное вдвое = ', a + a); end.
4) var a: byte; begin write('Введите количество ошибок: '); readln(a); if a = 0 then writeln('Оценка 5'); if a = 1 then writeln('Оценка 4'); if a = 2 then writeln('Оценка 3'); if a > 2 then writeln('Оценка 2'); end.
Answers & Comments
var
a: integer;
begin
write('Введите число: ');
readln(a);
if a mod 2 = 0 then
writeln('Число ', a, ' четное.')
else
writeln('Число ', a, ' нечетное. Увеличенное вдвое = ', a + a);
end.
---------------------------------------------------
4)
var
a: byte;
begin
write('Введите количество ошибок: ');
readln(a);
if a = 0 then
writeln('Оценка 5');
if a = 1 then
writeln('Оценка 4');
if a = 2 then
writeln('Оценка 3');
if a > 2 then
writeln('Оценка 2');
end.
--------------------------------------------------------------
6)
var
a, b, c: integer;
begin
write('Введите рост и вес: ');
readln(a, c);
b := a - 100;
writeln('Идеальный вес = ', b);
end.