Question

Ребяяяяттт, помогите срочно ,пожалуйста!!!!!
Вопрос жизни и смерти, если не сделаю ,информатичка прикончит прямо в классе!!! Спасите ,плиз!!!
Все это в Паскале

Answer 1

1)Program z1;
var N,a,b,c,d,e,f:integer;
begin
Write('Введите четырёхзначное число: '); read(N);
a:=N div 1000;
b:=(N mod 1000) div 100;
c:=(N mod 100) div 10;
d:=N mod 10;
e:=a+b+c+d;
f:=e mod 10;
if (f=5) or (f=0) then Writeln('Сумма цифр числа кратна 5')
else Writeln('Сумма цифр числа не кратна 5');
end.
2)Program z2;
var a,b,c,d:integer;
begin
Write('Введите числа: '); 
Write('a = '); read(a);
Write('b = '); read(b);
Write('c = '); read(c);
if (a>0) then a:=1;
if (b>0) then b:=1; 
if (c>0) then c:=1;
d:=a+b+c;
writeln('Положительных чисел: ',d);
end. 
3)Program z3;
var x,y:integer;
begin
Writeln('Введите координаты:');
Write('x = '); read(x);
Write('y = '); read(y);
if (-5<x) and (x<5) and (-5<y) and (y<5) then Writeln('Попал')
else Writeln('Не попал');
end.
4)Program z4;
var m,n:integer;
begin
Write('Введите номер месяца: '); read (m);
n:=m+1;
case n of
1: write ('Февраль');
2: write ('Март');
3: write ('Апрель');
4: write ('Май');
5: write ('Июнь');
6: write ('Июль');
7: write ('Август');
8: write ('Сентябрь');
9: write ('Октябрь');
10: write ('Ноябрь');
11: write ('Декабрь');
12: write ('Январь');
end;
end.

Answer 2

Спасибо тебе, добрый человек!!!))))

Answer 3

Да не за что) Добавил решение второй задачи :3

Answer 4

Благодарю за спасенную жизнь))))