// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:= readlnInteger('n =');
var a:= ReadlnString.ToIntegers;
SetLength(a, n);
var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count;
Writeln(k);
end.
Var
a, f, t, S: real;
begin
Write('Введите длину стороны ромба: '); Readln(a);
Write('Введите величину острого угла ромба в градусах: '); Readln(f);
t := f * pi / 180;
S := sqr(a) * sin(t);
Writeln('Площадь ромба равна ', S, ' кв.ед.')
end.
Тестовое решение:
Введите длину стороны ромба: 14.3
Введите величину острого угла ромба в градусах: 58.7
Площадь ромба равна 174.728286173858 кв.ед.
Петя заболел на зимних каникулах. Пока все играли в снежки, катались на лыжах с горки...Петя сидел дома и учил Пушкина. В пятом классе они как раз проходят произведения Пушкина и Марья Ивановна задала на каникулы учить. Петя сам себя не узнал, так как он был круглым двоечником. Если бы не его простуда, он бы сейчас гулял с друзьями и получил по стихотворению 2! Петя обиделся на своих друзей, потому что они даже не пришли узнать, что он, да как он!
В школе, Петины друзья заметили, что из друга нет и позвонили ему, но он не поднял трубку домашнего телефона. Тогда друзья решили прийти к нему домой и узнать, что случилось!
Когда они пришли, у Пети на лице засияла улыбка. Он с радостью открыл им дверь! Они пили чай и вместе делали уроки!
Var a,b,y:integer;
begin
writeln('Введите 2 числа a и b'); readln(a,b);
if a=b
then y:=1
else if a>b
then y:=2
else y:=3;
writeln('y= ', y);
end.