#include <iostream>
int main(void)
{
int a, b; std::cin >> a >> b;
std::cout << (a % b ? "No" : "Yes") << std::endl;
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var y:=ReadReal('y=');
var x:=(y-16)/10;
Writeln('При y=',y,', x=',x)
end.
<u>Пример</u>
y= 4.17
При y=4.17, x=-1.183
Program n1;
var
n, i: integer;
p: real;
begin
write('Введите n: ');
readln(n);
p := 1;
for i := 2 to n do
p := p * i;
writeln(n, '! = ', trunc(p));
end.
1) Программа выводит N раз число K:
var k,n,i: Integer;
begin
writeln('Введите k');
readln(k);
writeln('Введите n');
readln(n);
for i:=1 to n do writeln(k);
end.
2) Сумма чисел от 6 до 10:
var a,sum: Integer;
begin
for a:=6 to 10 do
begin
Inc(sum,a);
end;
writeln(sum);
end.