A)var k,n:integer;
begin
read(k);
if k div 7=k/7 then n:=7 else
if k+1 div 7=k+1/7 then n:=6 else
if k+2 div 7=k+2/7 then n:=5 else
if k+3 div 7=k+3/7 then n:=4 else
if k+4 div 7=k+4/7 then n:=3 else
if k+5 div 7=k+5/7 then n:=2 else
if k+6 div 7=k+6/7 then n:=1;
writeln(n);
end.
б)var k,n:integer;begin
read(k);
if k-1 div 7=k-1/7 then n:=7 else
if k div 7=k/7 then n:=6 else
if k+1 div 7=k+1/7 then n:=5 else
if k+2 div 7=k+2/7 then n:=4 else
if k+3 div 7=k+3/7 then n:=3 else
if k+4 div 7=k+4/7 then n:=2 else
if k+5 div 7=k+5/7 then n:=1;
writeln(n);
end.

0 0

4 года назад

А1 В таблице приведены запросы к поисковому серверу. Для каждого запроса указан его код — соответствующая буква

Opevs

А1 1-а, 2-в, 3-б, 4-г

0 0

4 года назад

написать программу, вычесления значений функции Y=1/X+2 с шагом 0,1. значения аргумента беруться из [-1;1]

Эльмирка16

Пишу на BASIC:

CLS
SCREEN 12
FOR I = -1 TO 1 STEP 0.1
Y = 1 / I + 2
PRINT Y
NEXT

0 0

4 года назад

Напишите программу, которая вычисляет количество цифр числа. Используйте функцию.

Alexis1965

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
 Result+=1;
 n:=n div 10
 end
end;

function nDigits(s:string):=s.Length; // если строка

begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.

Результат
16
30

0 0

4 года назад