Решите задачу на паскале с циклом с предусловие и пост условием.
10-11 класс
|
Составьте программу, выводящую на экран квадраты чисел от 10 до 20
1.(c пред)
var i :integer;
begin
i:=10;
while i<=20 do
begin
writeln(i*i);
i:=i+1;
end
end.
2.(c пост)
var i :integer;
begin
i:=10;
repeat
begin
writeln(i*i);
i:=i+1;
end;
until i>=21
end.
Другие вопросы из категории
иске в виде текстового файла, закодированного шестнадцатибитным кодом UNICODE. Каков информационный объем данного файла в килобайтах?
Читайте также
Дана строка.Перенести последнюю букву слова в начало слова
Дана строка, удалить текст находящийся в скобках (вместе со скобками)
Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать
Вот как я делал:
program zd;
uses crt;
var s:string; i,l,n,t,y:integer;
begin
clrscr;
writeln('Введите строку');
readln(s);
l:=length(s);
for i:=1 to n do begin
if s[i]='(' then
t:=i; {здесь присваивал номер найденной скобки}
if s[i]=')' then
y:=i; {так же, как и выше}
delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой}
end;
writeln('Данный результат =', s);
readln;
end.
уникальных чисел в массиве....заранее спасибо...
10 этапов соревнований «Формула-1». После 10 этапа участник с порядковым номером 4 выбыл из соревнований. Изменить массив так, чтобы в нем не было результатов бывшего гонщика.