var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
<em><u>Задание 1. </u></em>На самом деле в нем ошибка. Числ Фибоначчи определены начиная с f0=1, а в задании дважды указано f1=1.
uses Crt;
var
k,n,f0,f1,fk:longint;
begin
ClrScr;
f0:=1; f1:=1; k:=2;
Write('n='); Read(n);
Write(f0,' ',f1);
while k<=n do begin
fk:=f0+f1; f0:=f1; f1:=fk; Inc(k);
Write(' ',fk)
end;
Writeln;
ReadKey
end.
<em><u>Тестовое решение:</u></em>
n=20
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
<em><u>Задание 2.</u></em>
uses Crt;
var
P:real;
M:char;
s:string;
begin
ClrScr;
Write('P='); Readln(P);
Write('M='); Readln(M);
Str(P:0:0,s);
s:=Copy(s,1,3);
if Pos(M,s)>0 then Writeln('Yes') else Writeln('No');
ReadKey
end.
<em><u>Тестовое решение:</u></em>
P=54231.70475438
M=4
Yes
Нарисуй столбики над названиями, Конец столбика должен быть на цифре которая в таблице
var
a: array[1..20] of integer;
n,i:integer;
begin
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.