<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var dow := Arr('Понедельник', 'Вторник', 'Среда', 'Четверг',
'Пятница', 'Суббота', 'Воскресенье');
Println('Введите температуру');
var s := 0;
var t: integer;
for var i := 0 to 6 do
begin
Write(dow[i], '>>');
Read(t);
s += t
end;
Writeln('Средняя температура за неделю: ', s / 7:0:1)
end.
1. Вар сам напиши.
begin
readln(a,b);
For i:=10 to 99 do
if (i mod 10 + i div 10=a) and (i mod b=0) then writeln(i);
end.
2. Вар сам напиши,
begin
readln(a,b);
for i:=a to b do
if a mod 5 then writeln(i);
end.
For i in range(1, 100):
if i*i % 13 == 0:
print i
Косинус положителен от -90 до 90 градусов, от -π/2, до π/2.
Если у тебе даны x и y, то x должен быть положительным, а y любым.
Фото:
http://www.uznateshe.ru/wp-content/uploads/2012/08/znakicos2.png
COUNTRY:
USA : RUSSIA:
INFO : ;washington.txt INFO:
culture.txt industry.txt ; culture.txt