#include <file> - директива препроцессора, которая предлагает компилятору подключить файл "file".
int main(int argc, char *argv[]) - главная функции, которая срабатывает при запуске программы. argc - количество аргументов, argv - аргументы, передаваемые через командную строку
{ - операторная скобка
return 0; - оператор return. Завершает выполнение функции, возвращает значение 0 в случае корректного завершения программы
} - операторная скобка
В языке C++ после каждой инструкции нужно ставить ";".
Комментарии в программе могут быть 2х типов:
1. Однострочные("//"): int main() // главная функция
2. Многострочные(/* & */):
int main()
{
/*
Здесь тело
*/
}
Var
a: integer;
begin
readln(a);
if (a mod 3 = 0) or (a mod 10 = 4) then
writeln('Да')
else
writeln('Нет')
<span>end.</span>
Таблица - это способ структурирования данных. Таблица представляет собой распределение данных по однотипным строкам и столбцам.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function NOD(a,b:integer):integer;
begin
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
procedure FracAdd(n1,d1,n2,d2:integer; var n,d:integer);
// сложение дробей n1/d1 + n2/d2 = n/d
begin
(n,d):=(n1*d2+n2*d1,d1*d2);
var k:=NOD(n,d);
if k<>1 then (n,d):=(n div k,d div k)
end;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2й дроби:');
var m,n:integer;
FracAdd(a,b,c,d,m,n);
if n=1 then Writeln('Сумма=',m)
else Writeln('Сумма=',m,'/',n)
end.
<u>Пример</u>
Введите числитель и знаменатель 1й дроби: 6 15
Введите числитель и знаменатель 2й дроби: 12 300
Сумма=11/25
<u>Замечание:</u> вводить только натуральные числа!
Ответ:
13
Объяснение:
Ниже составлена универсальная программа для задач такого типа. Все, что вам требуется-прописать в поле констант g как отрезок, h как целое. Прога выведет количество k отрезков g в бруске или чем-то таком h.
const
g = 1.5;
h = 20;
var
l : real;
k : integer;
begin
l:= 0;
k:= -1;
while l < h do begin
l:= l + g;
k:= k + 1;
end;
write(k);
end.