Выведите на экран натуральные числа от 1 до 100, которые при делении на 6 дают в остатке 4 и их количество(цифр)

[svob]

Задача №3
Решить, составить блок схему

Даны 2 целых числа A и B (A<B) найти сумму всех целых чисел от A до B включительно.
буду очень благодарен.

Задача №1
Решена, нужна только блок схема
Выведите все квадраты натуральных чисел, не превосходящих данного числа N.буду очень благодарен.

Задача №2
Решить, составить блок схему

Выведите на экран натуральные числа от 1 до 100, которые при делении на 6 дают в остатке 4 и их количество(цифр)

[Poma][a]

Скромный оффтоп :
В своё время (этак год назад ) учился я у своего любимого учителя по физике. И каждый урок(ну почти каждый) кто-нибудь, да и забывал калькулятор (у меня всегда был свой ). И когда они просили калькулятор у учителя, тот говорил : "А что мне будет?". Ответы были - "шоколадку, ручку, даже денюжку предлагали, кто-то говорил моя петерка по физике у Вас будет.." Но никто так и не получил калькулятор... Зато когда хитрый Ромаха отдал свой инструмент для сщета подруге, то он, сказав одно маленькое слово, получил этот калькулятор..
Конец оффтопа..
Дак что мне за это будет?

[Sciv]

Задача №1
Решена, нужна только блок схема
Выведите все квадраты натуральных чисел, не превосходящих данного числа N.буду очень благодарен.

Тут нехило было бы решение привести, а то ведь решим по своему - и блок-схема к Вашей задаче ни разу не подойдет

Зато когда хитрый Ромаха отдал свой инструмент для сщета подруге, то он, сказав одно маленькое слово, получил этот калькулятор..

Хитрый Ромаха, а что за слово-то было? То, которое ТС употребить забыл, обращаясь за помощью?

[Poma][a]

Хитрый Ромаха, а что за слово-то было? То, которое ТС употребить забыл, обращаясь за помощью?

Ага. Именно оно

[three_cats]

Блок-схемы составите сами(есть программа специальная), а две задачи вот:

// Даны 2 целых числа A и B (A<B) найти сумму всех целых чисел от A до B включительно.
uses crt;
var
a,b:integer;
sum,i:integer;
begin
randomize;
a:=random(25);
b:=a+random(25); // A<B!
writeln('A = ',a,' B = ',b);
write('Ряд:');
for i:=a to b do begin
write(i,' ');
sum:=sum+i;
end;
writeln;
writeln('Сумма=', sum );

end.

// Выведите на экран натуральные числа от 1 до 100, которые при делении на 6 дают в остатке 4 и их количество(цифр)
uses crt;
var
i:integer;
s:string;
begin
for i:=1 to 100 do begin
    s:=inttostr(i);
    if ((i / 6 = 4) or (i / 6 = length(s))) then write(i, ' ');
end;
writeln;
end.

[svob]

Огромное спасибо

[Mad_Cat]

Огромное спасибо

ну в правильности решения №2 я бы посомневался
а в 1-ой переменную sum проинициализируйте пожалуйста и нормально будет

[BDA]

А теперь исправляем ошибки

uses crt;
var
a, b: integer;
begin
  randomize;
  a := random(25);
  b := a + random(25) + 1;
  writeln('A = ', a, ' B = ', b);
  writeln('Сумма = ', (b - a + 1) * (a + b) div 2);
  readln;
end.

uses crt;
var
i, count: integer;
begin
  count := 0;
  for i := 1 to 100 do
    if i mod 6 = 4 then
    begin
      write(i, ' ');
      inc(count);
    end;
  writeln;
  writeln('Count = ', count);
  readln;
end.

В последней задаче подсчитывается количество чисел, а не цифр, содержащихся в них.

не прокатит

Согласен

[Mad_Cat]

А теперь исправляем ошибки

ну задачка то скорее всего как раз на циклы) так что ваш вариант оптимизации не прокатит у преподователя

[svob]

я запутался :D, скажите правильное решение задач просто :D