Помогите написать программу на языке pascal (паскаль)
1С клавиатуры вводится четырехзначное число. Написать программу которая находит:
а) сумму цифр числа
б) среднее арифметическое цифр числа
в) проверяет ровна ли цифра тысяч и цифра единиц
г) находит число перевертыш.
2 Написать программу которая случайным образом выводит на экран:
а) только двухзначное число
б) только трехзначное число
в) только число из промежутка (25;48)
Дмитрий, вы меня просто спасли) Спасибо большое)
Первая прога
var a,b,c,d,i,q:integer;
w:real;
begin
read(i);
a:=i div 1000;
b:=i div 100 mod 10;
c:=i div 10 mod 10;
d:=i mod 10;
q:=a+b+c+d; writeln('сумма цифр числа равна ',q);
w:=(a+b+c+d)/4;writeln('среднее арифметическое цифр числаравна ',w);
if a=d then writeln('Цифра тысяч равна цифре едениц') else writeln('Цифра тысяч не равна цифре едениц');
writeln(d,c,b,a);end.
Вторая прога
program v2;
var a,b,c:integer;
begin
randomize;
a:=10+random(90);
b:=100+random(900);
c:=random(23)+25;
write(a,' ',b,' ',c);
end.
Обязательно проверьте на работоспособность писал из головы не проверяя.
хорошо)
Все прекрасно работает. Вы просто компьютерный гений)
a:=random(90)+10;
a:=random(899)+100;
a:=random(24)+25; вот так
24+25=49 по условию уже не подходит. а вот a:=random(899)+100; правильное замечание ТС исправь эту строчку в моей программе.