Составьте программу проверяющую верно ли утверждение

Составьте программу проверяющую верно ли утверждение

Var
V,D,W,F,H,n,Q,FD,EE:Integer;
Begin
Writeln(‘Введите число не больше 5 чисел’);
Readln(V);
N:=1;
W:=V Div N;
FD:=w Mod 10;
N:=1;
Repeat
N:=N*10;
EE:=EE+F;
W:=V Div N;
F:=w Mod 10;

Q:=F;
Until N=10000;
writeln(‘Сумма цифр числа=’,FD+Q+EE);

3 . Измеряя промежутки времени между вспышкой молнии и
раскатом грома, определить, удаляется или приближается гроза? .

  • Попроси больше объяснений
  • Следить
  • Отметить нарушение

Nur9797 02.12.2013

Что ты хочешь узнать?

Ответ

Проверено экспертом

1) Var a:integer;
Begin
Writeln(‘Введите число’);
Readln(a);
If (a mod 2 = 0) then writeln(‘Введённое число чётное.’)
Else writeln(‘Введённое число чётное’);
End.

2) var A,A1,B,B1,C,C1:integer;
Begin
a:=4;b:=1;c:=7;
Writeln(‘Дан треугольник со сторонами A=4 B=1 C=7’);
Writeln(‘Введите стороны треугольника A,B,C’);
Readln(A1,B1,C1);
If (A=A1) and (B=B1) and (C=C1) then writeln(‘треугольники равны’)
Else writeln(‘треугольники не равны’);
End.

3) var x,y:integer;
Begin
write(‘Введите первый промежуток: ‘); readln(x);
write(‘Введите второй промежуток: ‘); readln(y);
if x end.

  • 5 — 9 классы
  • Информатика
  • 10 баллов

Составьте программу, проверяющую, верно ли утверждение, что введеное вами целое число делится без остатка на 3.

  • Попроси больше объяснений
  • Следить
  • Отметить нарушение

BaNa2 05.12.2012

Что ты хочешь узнать?

Ответ

Проверено экспертом

var
N:integer;
begin
read(N);
if N mod 3=0 then
writeln(‘верно’)
else writeln(‘не верно’);
end.

«>

Читайте также:  Автосигнализация с gsm модулем отзывы
Ссылка на основную публикацию
Adblock detector