Составить программу на вычисления суммы: 1^2+2^2+3^2++100^2.

Question

Информатика: Составить программу на вычисления суммы: 1^2+2^2+3^2++100^2.

kseshkaShkolnikova · Accepted Answer

1. PascalABC.NET 3.2

begin
var s:=ReadlnString('Введите натуральное число:');
var c:=ReadlnChar('Введите цифру для поиска:');
if Pos(c,s)>0 then Writeln('Такая цифра есть')
else Writeln('Такой цифры нет')
end.

2. PascalABC.NET любой версии, Free Pascal и т.д. на строках

var
s:string;
c:char;
begin
Write('Введите натуральное число: '); Readln(s);
Write('Введите цифру для поиска: '); Readln(c);
if Pos(c,s)>0 then Writeln('Такая цифра есть')
else Writeln('Такой цифры нет')
end.

3. То же, но без строк, с циклом

var
n:longint;
d:0..9;
begin
Write('Введите натуральное число: '); Read(n);
Write('Введите цифру для поиска: '); Read(d);
while n>0 do begin
    if n mod 10=d then begin
      Writeln('Такая цифра есть');
      Exit
      end;
    n:=n div 10
    end;
Writeln('Такой цифры нет')
end.

MOGZ ответил