Question

Придумайте 2 задачи на циклы и на ветвление на языке паскаль понятные 8 класснику  условие+решение

Answer 1

Read(a);
while a>0 begin a:=a-1 end;

read(a);
while a<=10 begin a:=a+3 end;

read(a);
if a>4 begin write('+') end;

read(a);
if a!=4 begin write('-') end;

Артём устроился на работу. Его задача собирать ягоды. Ему платят по 5 у.е. за ягоду, но только если ягод больше 20. Сколько заплатят Артёму, если он собрал N ягод?
var N,a:integer;
begin
read(N);
if N>20 then
begin
a:=20*5
else
a:=0
end;
print(a)
end.

Answer 2

1. найти сумму чисел с 1 до n

Program ffff;

Uses crt;

var n,i,s:integer;

begin

writeln ('Кол-во цифр');

readln (n);

for i:=1 to n do

s:=s+i;

writeln (s);

end.

Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно

Program ffff;

Uses crt;

var n,i:integer;

begin

writeln ('Сколько я беру обычно');

readln (n);

writeln ('Какое сегодня число');

readln (i);

if i mod 2 = 0

then n:=n+10;

writeln (n,' рублей я сегодня беру');

end.

Answer 3

Задача 1: "Сумма чисел" Условие: Напишите программу на языке Паскаль, которая запрашивает у пользователя натуральное число N и затем находит сумму всех чисел от 1 до N.

Решение:

pascalCopy code
program SumOfNumbers;
var
  N, sum, i: Integer;
begin
  Write('Введите натуральное число N: ');
  Readln(N);
  
  sum := 0;
  for i := 1 to N do
    sum := sum + i;
  
  Writeln('Сумма чисел от 1 до ', N, ' равна ', sum);
end.

Задача 2: "Проверка на простое число" Условие: Напишите программу на языке Паскаль, которая запрашивает у пользователя целое число и проверяет, является ли оно простым (т.е., делится только на 1 и на само себя).

Решение:

pascalCopy code
program PrimeNumberCheck;
var
  num, i: Integer;
  isPrime: Boolean;
begin
  Write('Введите целое число для проверки: ');
  Readln(num);
  
  // Проверка числа на простоту
  isPrime := True;
  if num <= 1 then
    isPrime := False
  else
  begin
    for i := 2 to Trunc(Sqrt(num)) do
    begin
      if num mod i = 0 then
      begin
        isPrime := False;
        Break;
      end;
    end;
  end;
  
  // Вывод результата
  if isPrime then
    Writeln(num, ' - простое число')
  else
    Writeln(num, ' - составное число');
end.

Обратите внимание, что код и условия задач приведены на языке Паскаль. Чтобы выполнить эти программы, можно использовать среду разработки, такую как Lazarus или Free Pascal.