// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadInteger3('a,b,c =');
var k:= ReadInteger('k =');
var (x,y,z):=ReadInteger3('x,y,z =');
Writeln(min(x div(a*k),min(y div(b*k), z div(c*k))));
end.
<u>Пример:</u>
a,b,c = 2 3 4
k = 2
x,y,z = 4 8 19
1
Если число меньше 10 то
Ни чего не делаем
Выводим число на экран
Если число больше 10 то:
Переводим число в строку
Меняем первый символ строки с последним
Переводим строку в число
Выводим на экран
Решение:
Delphi/Pascal
program Begin4;
var
d,L: Real;
begin
Write('Введите диаметр окружности : ');
Readln(d);
L:=3.14*d;
Writeln('Длина окружности равна: ', L);
end.
Var
cnt, i,tmp, n, ans:longint;
begin
Writeln('Введите n -> ');
Readln(n);
for i:= 1 to n do
begin
tmp:= i;
cnt:= 0;
while tmp > 0 do
begin
inc(cnt);
tmp := tmp div 10;
end;
ans:= ans + cnt;
end;
Writeln(ans);
end.
Ответ:
задача №1
program n1;
var q,w,e:integer;
begin
e:=1;
writeln('введите количество рыбок,которое наловил дед');
readln(q);
while q>0 do begin
q:=q-e;
e:=e+1;
end;
writeln(e);
end.
Объяснение: