№1. представить в тетрадях в виде программ следующие примеры: 1. составить программу из данного примера ((a+b)*c)/d. 2. составить программу из данного примера ((a*b)+c)-d, используя только 2 переменные.
2. "Школьный" вариант (а кто сказал, что будет легко?)
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 const nn=100; var i,n,k:integer; a:array[1..nn] of integer; begin Write('n= '); Read(n); Randomize; k:=0; for i:=1 to n do begin a[i]:=Random(199)-99; Write(a[i],' '); if a[i]>0 then Inc(k) end; Writeln; Writeln('k=',k) end.
Вводим обозначения для утверждений: a - первая буква гласная b - больше 5 букв c - последняя буква гласная
Записываем в этих обозначениях исходное условие, а затем упрощаем его:
Подставляем высказывания вместо введенных временных обозначений: (первая буква гласная ИЛИ больше 5 букв) И последняя буква НЕ гласная
Даны слова; фиалка, георгин, лилия, лютик. Применяем к каждому слову полученное условие. - отбрасываем слова, у которых последняя буква гласная и остается только "георгин"; - проверяем, гласная ли первая буква - нет; - проверяем, больше ли в слове букв, чем 5 - да.
1)
Begin
var (a,b,c,d):=ReadInteger4();
Writeln(((a+b)*c)/d);
end.
2)
Begin
var a,b:real;
Readln(a,b);
a:=a*b;
Readln(b);
a:=a+b;
Readln(b);
a:=a-b;
Writeln(a);
end.