// Попробуйте, если что не так пишите
//If6
uses PT4;
begin
Task('If6');
var (a, b) := ReadReal2();
if a > b then
Write(a)
else
Write(b)
end.
//-------------------------------
//For4;
uses PT4;
begin
Task('For4');
var Price := ReadReal();
for var i := 1 to 10 do
Print(i * Price)
end.
Program zna4enie;
var a, b, c,rez:integer;
begin
writeln('Введите первую цифру');
readln(a);
writeln('Введите вторую цифру');
readln(b);
writeln('Введите третью цифру');
readln(c);
rez:=(a div b+b)mod c;
writeln('(' ,a,' div ', b,'+ ',b,' )mod ',c);
write('Ответ: ',rez);
end.
Написать программу, которая выводит на экран сумму
ряда
<span>
пусть a – числитель;</span><span>b – знаменатель;</span><span>da и db – шаг для
числителя и знаменателя;</span><span>n - для смены знака; </span><span> </span>
Программа:
const
<span>da= -18; {927-945}</span>
<span>db=
24; {33-9}
</span>
var
a,b,n:
integer;
s:
real;
begin
s:=0;
n:=1; a:=945;b:=9;
<span>
while a>=27 do</span><span>
begin</span><span><span>
s:=s+a/b*n; {</span>подсчет суммы}</span><span>
a:=a+da;</span><span>
b:=b+db;</span><span><span>
n:= -1*n; {</span>изменение знака}</span><span>
end;</span>
writeln('s=',s:4:2);
<span>end.</span>
Var
a:longint;
s:string;
begin
writeln('Введите целое число');
readln(a);
Str(a,s);
writeln('Количество цифр в числе равно ',length(s));
end.
1) Начало
2) Ввод a, b, c
3) Если (a = -b) или (a = -c) или (b = -c), то ответ ДА. Иначе ответ НЕТ.
4) Вывод ответа
5) Конец