Записать условие, которое является истинным, когда целое А не кратно трем и оканчивается нулем

@SHIELD Griqqs · Регистрация: 02.10.2016

Author24 — интернет-сервис помощи студентам

Помогите плиз срочно нужно

Добавлено через 29 минут

Pascal

var
a, b: integer; 
n, i: real;
begin
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
n:=a*b;
writeln('n=', n);
readln;
End.

нужно сделать так, чтобы на конце был ноль.

@Puporev · 12.11.2016, 11:21

Pascal

var a: integer;
    f:boolean;
begin
writeln('Введите целое число a=');
readln(a);
f:=(a mod 3<>0)and(a mod 10=0);
write(f)
End.

	12.11.2016, 11:21

Опции темы