Помогите плиз написать программы на Паскале) 1. Составьте программу, проверяющую,…

Question

37

Помогите плиз написать программы на Паскале) 1. Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным.2. Стороны одного треугольника равны A1,B1,C1. Написать алгоритм и программу проверки равенства ему другого треугольника. 3. Измеряя промежутки времени между вспышкой молнии и раскатом грома, определить, удаляется или приближается гроза? .

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

trashtalker · Accepted Answer

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: